Commit ac8a8341 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

parent 4f1d6310
......@@ -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)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment