Mercurial > emacs
changeset 5461:5bb33851230e
(make-lucid-menu-keymap): For "----", make blank line.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 06 Jan 1994 04:59:17 +0000 |
| parents | 3bd42ee22d1f |
| children | 09820fbab8d1 |
| 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 Thu Jan 06 04:39:00 1994 +0000 +++ b/lisp/emacs-lisp/lmenu.el Thu Jan 06 04:59:17 1994 +0000 @@ -63,7 +63,7 @@ command enabler name) (cond ((stringp item) (setq command nil) - (setq name item)) + (setq name (if (equal item "----") "" item))) ((consp item) (setq command (make-lucid-menu-keymap (car item) (cdr item))) (setq name (car item)))