diff options
| author | Richard M. Stallman | 1994-01-06 04:59:17 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-01-06 04:59:17 +0000 |
| commit | ac8a83413fc8568524199285944550f1e905006a (patch) | |
| tree | 552fbb6f25269ede9f869ce58dba3d22b291aa18 | |
| parent | 4f1d6310e1f7bf74afab2f04908611ec8e5f7cc8 (diff) | |
| download | emacs-ac8a83413fc8568524199285944550f1e905006a.tar.gz emacs-ac8a83413fc8568524199285944550f1e905006a.zip | |
(make-lucid-menu-keymap): For "----", make blank line.
| -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 3883d0ed4be..d06b4d56fee 100644 --- a/lisp/emacs-lisp/lmenu.el +++ b/lisp/emacs-lisp/lmenu.el | |||
| @@ -63,7 +63,7 @@ | |||
| 63 | command enabler name) | 63 | command enabler name) |
| 64 | (cond ((stringp item) | 64 | (cond ((stringp item) |
| 65 | (setq command nil) | 65 | (setq command nil) |
| 66 | (setq name item)) | 66 | (setq name (if (equal item "----") "" item))) |
| 67 | ((consp item) | 67 | ((consp item) |
| 68 | (setq command (make-lucid-menu-keymap (car item) (cdr item))) | 68 | (setq command (make-lucid-menu-keymap (car item) (cdr item))) |
| 69 | (setq name (car item))) | 69 | (setq name (car item))) |