From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 13 Jun 1996 21:05:06 +0000 (+0000)
Subject: (make-lucid-menu-keymap): Add menu-alias property.
X-Git-Tag: emacs-19.34~432
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=45c2639bdf326b1175a050c4081f688ad57d6f5a;p=emacs.git

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

diff --git a/lisp/emacs-lisp/lmenu.el b/lisp/emacs-lisp/lmenu.el
index 6572166fdcb..a878f6ca206 100644
--- 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