mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(make-lucid-menu-keymap): Any row of dashes means blank.

Browse source
This commit is contained in:
Karl Heuer 1994-03-21 00:37:56 +00:00
parent 0abf66c5e8
commit a760522275
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/emacs-lisp/lmenu.el
View file

@ -63,7 +63,7 @@
command enabler name)
(cond ((stringp item)
(setq command nil)
(setq name (if (equal item "----") "" item)))
(setq name (if (string-match "^-+$" item) "" item)))
((consp item)
(setq command (make-lucid-menu-keymap (car item) (cdr item)))
(setq name (car item)))