mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-26 07:33:47 +00:00
Code Issues Releases Activity

(tool-bar-local-item-from-menu):

Browse Source 
Fix parts in construction of `menu-item' item at end.
This commit is contained in:
Richard M. Stallman 2002-04-19 00:09:20 +00:00
parent fba75b6b1a
commit 97c2194784
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/toolbar/tool-bar.el
View File

@ -208,7 +208,7 @@ MAP must contain appropriate binding for `[menu-bar]' which holds a keymap."
(append (cdr defn) (list :image image) props))
(setq defn (cdr defn))
(define-key-after in-map (vector key)
(append `(menu-item ,(car defn) ,(cddr defn))
(append `(menu-item ,(car defn) ,(cdr defn))
(list :image image) props)))))))
;;; Set up some global items. Additions/deletions up for grabs.