From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 13 Jun 1996 21:04:52 +0000 (+0000)
Subject: (easy-menu-create-keymaps): Add menu-alias property.
X-Git-Tag: emacs-19.34~433
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=41311853f22bbd0cefba44cbb835c18973d2502d;p=emacs.git

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

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."
 		   (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.