Mercurial > emacs
comparison lisp/edmacro.el @ 72246:c3cdfa41017b
(edmacro-fix-menu-commands): Ignore switch-frame.
| author | Kim F. Storm <storm@cua.dk> |
|---|---|
| date | Wed, 02 Aug 2006 22:37:17 +0000 |
| parents | 3bd95f4f2941 |
| children | ddcbd2c1b70d 694bbb62a75d 858cb33ae39d |
comparison
equal
deleted
inserted
replaced
| 72245:c7ffe828b066 | 72246:c3cdfa41017b |
|---|---|
| 668 (setq macro (append macro nil)) | 668 (setq macro (append macro nil)) |
| 669 (dolist (ev macro) | 669 (dolist (ev macro) |
| 670 (cond ((atom ev) | 670 (cond ((atom ev) |
| 671 (push ev result)) | 671 (push ev result)) |
| 672 ((eq (car ev) 'help-echo)) | 672 ((eq (car ev) 'help-echo)) |
| 673 ((eq (car ev) 'switch-frame)) | |
| 673 ((equal ev '(menu-bar)) | 674 ((equal ev '(menu-bar)) |
| 674 (push 'menu-bar result)) | 675 (push 'menu-bar result)) |
| 675 ((equal (cadadr ev) '(menu-bar)) | 676 ((equal (cadadr ev) '(menu-bar)) |
| 676 (push (vector 'menu-bar (car ev)) result)) | 677 (push (vector 'menu-bar (car ev)) result)) |
| 677 ;; It would be nice to do pop-up menus, too, but not enough | 678 ;; It would be nice to do pop-up menus, too, but not enough |