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

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

parent 67385caa
......@@ -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.
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