From a7605222758da297fc452714e200f58eab71bfb2 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Mon, 21 Mar 1994 00:37:56 +0000 Subject: (make-lucid-menu-keymap): Any row of dashes means blank. --- lisp/emacs-lisp/lmenu.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'lisp/emacs-lisp/lmenu.el') 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))) -- cgit v1.2.3