mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(easy-menu-create-keymaps): Add menu-alias property.

Browse source
This commit is contained in:
Richard M. Stallman 1996-06-13 21:04:52 +00:00
parent 67385caa0e
commit 41311853f2
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -174,7 +174,8 @@ is a list of menu items, as above."
(setq name (concat name " ..."))) (setq name (concat name " ...")))
(if (symbolp callback) (if (symbolp callback)
(fset command callback) (fset command callback)
(fset command (list 'lambda () '(interactive) callback))))) (fset command (list 'lambda () '(interactive) callback)))
(put command 'menu-alias t)))
(if (null command) (if (null command)
;; Handle inactive strings specially--allow any number ;; Handle inactive strings specially--allow any number
;; of identical ones. ;; of identical ones.