diff options
| author | Richard M. Stallman <rms@gnu.org> | 1997-09-05 05:45:02 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1997-09-05 05:45:02 +0000 |
| commit | f070b8ae20aa70544e318d8dcafef5b8455cf882 (patch) | |
| tree | 99b1e41ec717ea0f314a31839a75361ffb2e3f39 /lisp/emacs-lisp | |
| parent | 2e02a76fcc874a63f6457a12ca5a68e42905747d (diff) | |
| download | emacs-f070b8ae20aa70544e318d8dcafef5b8455cf882.tar.gz emacs-f070b8ae20aa70544e318d8dcafef5b8455cf882.tar.bz2 emacs-f070b8ae20aa70544e318d8dcafef5b8455cf882.zip | |
(easy-menu-create-keymaps):
If two distinct items have the same string, make different
keyx events for them.
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)) |