Mercurial > emacs
changeset 6445:19bf0e182eda
(make-lucid-menu-keymap): Any row of dashes means blank.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Mon, 21 Mar 1994 00:37:56 +0000 |
| parents | 9cbdecc5a37d |
| children | d31f12f6a319 |
| files | lisp/emacs-lisp/lmenu.el |
| diffstat | 1 files changed, 1 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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)))