procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(easy-menu-create-keymaps):

Browse source 
If two distinct items have the same string, make different
keyx events for them.
This commit is contained in:
Richard M. Stallman 1997-09-05 05:45:02 +00:00
parent 2e02a76fcc
commit f070b8ae20
1 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/emacs-lisp/easymenu.el
View file

@ -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))