# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 757921051 0
# Node ID 2efe469a9c24f3a01f46346c74f42b5ffbfe1bda
# Parent  15547237786410e2928d66dad727845bdb5803bc
(make-lucid-menu-keymap): Allow multiple identical inactive strings.

diff -r 155472377864 -r 2efe469a9c24 lisp/emacs-lisp/lmenu.el
--- a/lisp/emacs-lisp/lmenu.el	Thu Jan 06 20:24:06 1994 +0000
+++ b/lisp/emacs-lisp/lmenu.el	Fri Jan 07 05:37:31 1994 +0000
@@ -79,8 +79,12 @@
 	       (if (symbolp callback)
 		   (fset command callback)
 		 (fset command (list 'lambda () '(interactive) callback)))))
-	(if name 
-	    (define-key menu (vector (intern name)) (cons name command))))
+	(if (null command)
+	    ;; Handle inactive strings specially--allow any number
+	    ;; of identical ones.
+	    (setcdr menu (cons (list nil name) (cdr menu)))
+	  (if name 
+	      (define-key menu (vector (intern name)) (cons name command)))))
       (setq menu-items (cdr menu-items)))
     menu))