Mercurial > emacs
comparison lisp/emacs-lisp/lmenu.el @ 15430:760c7139c19c
(make-lucid-menu-keymap): Add menu-alias property.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 13 Jun 1996 21:05:06 +0000 |
| parents | 83f275dcd93a |
| children | e414b2e486a3 |
comparison
equal
deleted
inserted
replaced
| 15429:34acde979294 | 15430:760c7139c19c |
|---|---|
| 79 name (aref item 0) | 79 name (aref item 0) |
| 80 callback (aref item 1)) | 80 callback (aref item 1)) |
| 81 (if (symbolp callback) | 81 (if (symbolp callback) |
| 82 (fset command callback) | 82 (fset command callback) |
| 83 (fset command (list 'lambda () '(interactive) callback))) | 83 (fset command (list 'lambda () '(interactive) callback))) |
| 84 (put command 'menu-alias t) | |
| 84 (let ((i 2)) | 85 (let ((i 2)) |
| 85 (while (< i (length item)) | 86 (while (< i (length item)) |
| 86 (cond | 87 (cond |
| 87 ((eq (aref item i) ':active) | 88 ((eq (aref item i) ':active) |
| 88 (put command 'menu-enable | 89 (put command 'menu-enable |