diff options
| author | Richard M. Stallman <rms@gnu.org> | 2002-04-19 00:09:20 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2002-04-19 00:09:20 +0000 |
| commit | 97c21947844a07cf2f80cc52188614a74c8b0cbe (patch) | |
| tree | 3e31e75b57e931afa5c8a96551e58693e454742a /lisp/toolbar | |
| parent | fba75b6b1a9c88f822b801250218081cd7109d1c (diff) | |
| download | emacs-97c21947844a07cf2f80cc52188614a74c8b0cbe.tar.gz | |
(tool-bar-local-item-from-menu):
Fix parts in construction of `menu-item' item at end.
Diffstat (limited to 'lisp/toolbar')
| -rw-r--r-- | lisp/toolbar/tool-bar.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/toolbar/tool-bar.el b/lisp/toolbar/tool-bar.el index 195f57e0a90..ab11bc8b450 100644 --- a/lisp/toolbar/tool-bar.el +++ b/lisp/toolbar/tool-bar.el @@ -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. |