diff options
| author | Karl Heuer <kwzh@gnu.org> | 1994-03-21 00:37:56 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1994-03-21 00:37:56 +0000 |
| commit | 882831b2611b3361a34e7ad8dfa2210d3a268db4 (patch) | |
| tree | 1dfb7c527a24a71a49d69b29c57989871fb63767 /lisp/emacs-lisp/lmenu.el | |
| parent | e4ec37c4e9fb08894345b115d642aaf7ca2f7d9a (diff) | |
| download | emacs-882831b2611b3361a34e7ad8dfa2210d3a268db4.tar.gz | |
(make-lucid-menu-keymap): Any row of dashes means blank.
Diffstat (limited to 'lisp/emacs-lisp/lmenu.el')
| -rw-r--r-- | lisp/emacs-lisp/lmenu.el | 2 |
1 files changed, 1 insertions, 1 deletions
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))) |