diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-01-07 05:37:31 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-01-07 05:37:31 +0000 |
| commit | a63c1a22c7e9ea12dbaab8df1cf4d64df4d28c61 (patch) | |
| tree | 4523e7d85786e5dbc7ae3b9e904927935995a8a7 /lisp/emacs-lisp/lmenu.el | |
| parent | 29982c18e96d3e9e582745d14db84c4fb67c1dd6 (diff) | |
| download | emacs-a63c1a22c7e9ea12dbaab8df1cf4d64df4d28c61.tar.gz | |
(make-lucid-menu-keymap): Allow multiple identical inactive strings.
Diffstat (limited to 'lisp/emacs-lisp/lmenu.el')
| -rw-r--r-- | lisp/emacs-lisp/lmenu.el | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/lmenu.el b/lisp/emacs-lisp/lmenu.el index d06b4d56fee..55cef190538 100644 --- a/lisp/emacs-lisp/lmenu.el +++ b/lisp/emacs-lisp/lmenu.el @@ -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)) |