From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 6 Jan 1994 04:59:17 +0000 (+0000)
Subject: (make-lucid-menu-keymap): For "----", make blank line.
X-Git-Tag: emacs-19.34~10390
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ac8a83413fc8568524199285944550f1e905006a;p=emacs.git

(make-lucid-menu-keymap): For "----", make blank line.
---

diff --git a/lisp/emacs-lisp/lmenu.el b/lisp/emacs-lisp/lmenu.el
index 3883d0ed4be..d06b4d56fee 100644
--- a/lisp/emacs-lisp/lmenu.el
+++ b/lisp/emacs-lisp/lmenu.el
@@ -63,7 +63,7 @@
 	     command enabler name)
 	(cond ((stringp item)
 	       (setq command nil)
-	       (setq name item))
+	       (setq name (if (equal item "----") "" item)))
 	      ((consp item)
 	       (setq command (make-lucid-menu-keymap (car item) (cdr item)))
 	       (setq name (car item)))