From ac8a83413fc8568524199285944550f1e905006a Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 6 Jan 1994 04:59:17 +0000 Subject: [PATCH] (make-lucid-menu-keymap): For "----", make blank line. --- lisp/emacs-lisp/lmenu.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 @@ 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))) -- 2.39.5