procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(make-lucid-menu-keymap): Allow multiple identical inactive strings.

Browse source
This commit is contained in:
Richard M. Stallman 1994-01-07 05:37:31 +00:00
parent 424532459b
commit b69f3ab1c8
1 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -79,8 +79,12 @@
(if (symbolp callback)
(fset command callback)
(fset command (list 'lambda () '(interactive) callback)))))
(if name
(define-key menu (vector (intern name)) (cons name command))))
(if (null command)
;; Handle inactive strings specially--allow any number
;; of identical ones.
(setcdr menu (cons (list nil name) (cdr menu)))
(if name
(define-key menu (vector (intern name)) (cons name command)))))
(setq menu-items (cdr menu-items)))
menu))