diff options
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/easymenu.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/easymenu.el b/lisp/emacs-lisp/easymenu.el index 081780bd465..4988d0e1d14 100644 --- a/lisp/emacs-lisp/easymenu.el +++ b/lisp/emacs-lisp/easymenu.el @@ -203,7 +203,11 @@ is a list of menu items, as above." (setq command (cons item-string command)) (if (not have-buttons) ; Save all items so that we can fix (setq old-items (cons command old-items))) ; if we have buttons. - (if name (define-key menu (vector (intern name)) command)))) + (when name + (let ((key (vector (intern name)))) + (if (lookup-key menu key) + (setq key (vector (intern (concat name "*"))))) + (define-key menu key command))))) (setq menu-items (cdr menu-items))) menu)) |