# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 764210276 0
# Node ID 19bf0e182edadb204ee5228a96998a3862674913
# Parent  9cbdecc5a37d493eabbe232f30e02201fbdbbcec
(make-lucid-menu-keymap): Any row of dashes means blank.

diff -r 9cbdecc5a37d -r 19bf0e182eda lisp/emacs-lisp/lmenu.el
--- a/lisp/emacs-lisp/lmenu.el	Sun Mar 20 23:52:27 1994 +0000
+++ b/lisp/emacs-lisp/lmenu.el	Mon Mar 21 00:37:56 1994 +0000
@@ -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)))