Mercurial > emacs
comparison lisp/edmacro.el @ 90573:858cb33ae39d
Merge from emacs--devo--0
Patches applied:
* emacs--devo--0 (patch 357-381)
- Merge from gnus--rel--5.10
- Update from CVS
- Merge from erc--emacs--21
* gnus--rel--5.10 (patch 116-122)
- Update from CVS
- Merge from emacs--devo--0
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-98
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Thu, 03 Aug 2006 11:45:23 +0000 |
| parents | c5406394f567 c3cdfa41017b |
| children | f1d13e615070 |
comparison
equal
deleted
inserted
replaced
| 90572:ab9b8d043c39 | 90573:858cb33ae39d |
|---|---|
| 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 |