diff options
| -rw-r--r-- | lisp/emacs-lisp/easymenu.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/easymenu.el b/lisp/emacs-lisp/easymenu.el index 192938fca3f..df3cc03cae8 100644 --- a/lisp/emacs-lisp/easymenu.el +++ b/lisp/emacs-lisp/easymenu.el | |||
| @@ -174,7 +174,8 @@ is a list of menu items, as above." | |||
| 174 | (setq name (concat name " ..."))) | 174 | (setq name (concat name " ..."))) |
| 175 | (if (symbolp callback) | 175 | (if (symbolp callback) |
| 176 | (fset command callback) | 176 | (fset command callback) |
| 177 | (fset command (list 'lambda () '(interactive) callback))))) | 177 | (fset command (list 'lambda () '(interactive) callback))) |
| 178 | (put command 'menu-alias t))) | ||
| 178 | (if (null command) | 179 | (if (null command) |
| 179 | ;; Handle inactive strings specially--allow any number | 180 | ;; Handle inactive strings specially--allow any number |
| 180 | ;; of identical ones. | 181 | ;; of identical ones. |