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

(easy-menu-convert-item-1): Intern the label.

Browse source
This commit is contained in:
Stefan Monnier 2000-07-14 08:39:48 +00:00
parent dd7b81cf87
commit 3a4f3f86ef
2 changed files with 33 additions and 30 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -351,11 +351,15 @@ MENU, just change it, otherwise put it last in MENU."
(or (null cache) (stringp cache) (vectorp cache)))
(setq prop (cons :key-sequence (cons cache prop))))))
(t (error "Invalid menu item in easymenu")))
(cons name (and (not remove)
(cons 'menu-item
(cons label
(and name
(cons command prop))))))))
;; `intern' the name so as to merge multiple entries with the same name.
;; It also makes it easier/possible to lookup/change menu bindings
;; via keymap functions.
(cons (intern name)
(and (not remove)
(cons 'menu-item
(cons label
(and name
(cons command prop))))))))
(defun easy-menu-define-key-intern (menu key item &optional before)
"Like easy-menu-define-key, but interns KEY and BEFORE if they are strings."