(make-lucid-menu-keymap): Add menu-alias property.

diff --git a/lisp/emacs-lisp/lmenu.el b/lisp/emacs-lisp/lmenu.el
index 6572166..a878f6c 100644 (file)
--- a/lisp/emacs-lisp/lmenu.el
+++ b/lisp/emacs-lisp/lmenu.el
@@ -81,6 +81,7 @@
               (if (symbolp callback)
                   (fset command callback)
                 (fset command (list 'lambda () '(interactive) callback)))
+              (put command 'menu-alias t)
               (let ((i 2))
                 (while (< i (length item))
                   (cond