Commit f070b8ae authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files


If two distinct items have the same string, make different
keyx events for them.
parent 2e02a76f
......@@ -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)))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment