mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-03 08:30:09 +00:00
Code Issues Releases Activity

(edmacro-fix-menu-commands):

Browse Source 
Discard `help-echo' events.  Handle (menu-bar) events.
Simplify by converting key sequence to a list and then back to vector.
This commit is contained in:
Richard M. Stallman 2002-06-21 09:53:01 +00:00
parent bbe4fd22c2
commit 5cfe1cece1
1 changed files with 19 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
lisp/edmacro.el
View File

@ -609,23 +609,30 @@ If START or END is negative, it counts from the end."
(setq i (1+ i) start (1+ start)))
res))))))
(defun edmacro-fix-menu-commands (macro)
(when (vectorp macro)
(let ((i 0) ev)
(while (< i (length macro))
(when (consp (setq ev (aref macro i)))
(cond ((equal (cadadr ev) '(menu-bar))
(setq macro (vconcat (edmacro-subseq macro 0 i)
(vector 'menu-bar (car ev))
(edmacro-subseq macro (1+ i))))
(incf i))
(defun edmacro-fix-menu-commands (macro &optional noerror)
(if (vectorp macro)
(let (result)
;; Make a list of the elements.
(setq macro (append macro nil))
(dolist (ev macro)
(cond ((atom ev)
(push ev result))
((eq (car ev) 'help-echo))
((equal ev '(menu-bar))
(push 'menu-bar result))
((equal (cadadr ev) '(menu-bar))
(push (vector 'menu-bar (car ev)) result))
;; It would be nice to do pop-up menus, too, but not enough
;; info is recorded in macros to make this possible.
(noerror
;; Just ignore mouse events.
nil)
(t
(error "Macros with mouse clicks are not %s"
"supported by this command"))))
(incf i))))
macro)
;; Reverse them again and make them back into a vector.
(vconcat (nreverse result)))
macro))
;;; Parsing a human-readable keyboard macro.