From: Karl Heuer <kwzh@gnu.org>
Date: Mon, 21 Mar 1994 00:37:56 +0000 (+0000)
Subject: (make-lucid-menu-keymap): Any row of dashes means blank.
X-Git-Tag: emacs-19.34~9407
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a7605222758da297fc452714e200f58eab71bfb2;p=emacs.git

(make-lucid-menu-keymap): Any row of dashes means blank.
---

diff --git a/lisp/emacs-lisp/lmenu.el b/lisp/emacs-lisp/lmenu.el
index 4f79c540ef6..395d2d36ede 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 (if (equal item "----") "" item)))
+	       (setq name (if (string-match "^-+$" item) "" item)))
 	      ((consp item)
 	       (setq command (make-lucid-menu-keymap (car item) (cdr item)))
 	       (setq name (car item)))