procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(vip-events-to-macro): discard events represented as lists in macro

Browse source 
definitions.
This commit is contained in:
Michael Kifer 1996-02-16 21:50:58 +00:00
parent 90e9c54bb0
commit df93b82b6f
1 changed files with 14 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
lisp/emulation/viper-macs.el
View file

@ -782,8 +782,21 @@ there."
(mapconcat 'char-to-string macro-name-or-body ""))
(t macro-name-or-body)))
;; convert sequence of events (that came presumably from emacs kbd macro) into
;; Viper's macro, which is a vector of the form
;; [ desc desc ... ]
;; Each desc is either a symbol of (meta symb), (shift symb), etc.
;; Here we purge events that happen to be lists. In most cases, these events
;; got into a macro definition unintentionally; say, when the user moves mouse
;; during a macro definition, then something like (switch-frame ...) might get
;; in. Another reason for purging lists-events is that we can't store them in
;; textual form (say, in .emacs) and then read them back.
(defun vip-events-to-macro (event-seq)
(vconcat (delq nil (mapcar 'vip-event-key event-seq))))
(vconcat (delq nil (mapcar (function (lambda (elt)
(if (consp elt)
nil
(vip-event-key elt))))
event-seq))))
;; convert strings or arrays of characters to Viper macro form
(defun vip-char-array-to-macro (array)