# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 834699906 0
# Node ID 760c7139c19cb70c2cc8bb8b17fd2d80c4f25646
# Parent  34acde979294aff368ef7d7c718910c14cae6135
(make-lucid-menu-keymap): Add menu-alias property.

diff -r 34acde979294 -r 760c7139c19c lisp/emacs-lisp/lmenu.el
--- a/lisp/emacs-lisp/lmenu.el	Thu Jun 13 21:04:52 1996 +0000
+++ b/lisp/emacs-lisp/lmenu.el	Thu Jun 13 21:05:06 1996 +0000
@@ -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