Mercurial > emacs
changeset 5477:2efe469a9c24
(make-lucid-menu-keymap): Allow multiple identical inactive strings.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 07 Jan 1994 05:37:31 +0000 |
| parents | 155472377864 |
| children | 8f79303487ae |
| files | lisp/emacs-lisp/lmenu.el |
| diffstat | 1 files changed, 6 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/lmenu.el Thu Jan 06 20:24:06 1994 +0000 +++ b/lisp/emacs-lisp/lmenu.el Fri Jan 07 05:37:31 1994 +0000 @@ -79,8 +79,12 @@ (if (symbolp callback) (fset command callback) (fset command (list 'lambda () '(interactive) callback))))) - (if name - (define-key menu (vector (intern name)) (cons name command)))) + (if (null command) + ;; Handle inactive strings specially--allow any number + ;; of identical ones. + (setcdr menu (cons (list nil name) (cdr menu))) + (if name + (define-key menu (vector (intern name)) (cons name command))))) (setq menu-items (cdr menu-items))) menu))