(make-lucid-menu-keymap): For "----", make blank line.

ac8a8341 · Richard M. Stallman · 4f1d6310 · ac8a8341
Commit ac8a8341 authored Jan 06, 1994 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

lisp/emacs-lisp/lmenu.el lisp/emacs-lisp/lmenu.el +1 -1

No files found.
--- 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 item))
+	       (setq name (if (equal item "----") "" item)))
 	      ((consp item)
 	       (setq command (make-lucid-menu-keymap (car item) (cdr item)))
 	       (setq name (car item)))