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

(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 " ...")))
(if (symbolp callback)
(fset command callback)
(fset command (list 'lambda () '(interactive) callback)))))
(fset command (list 'lambda () '(interactive) callback)))
(put command 'menu-alias t)))
(if (null command)
;; Handle inactive strings specially--allow any number
;; of identical ones.