diff options
| author | Richard M. Stallman | 2002-04-19 00:09:20 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2002-04-19 00:09:20 +0000 |
| commit | 97c21947844a07cf2f80cc52188614a74c8b0cbe (patch) | |
| tree | 3e31e75b57e931afa5c8a96551e58693e454742a | |
| parent | fba75b6b1a9c88f822b801250218081cd7109d1c (diff) | |
| download | emacs-97c21947844a07cf2f80cc52188614a74c8b0cbe.tar.gz emacs-97c21947844a07cf2f80cc52188614a74c8b0cbe.zip | |
(tool-bar-local-item-from-menu):
Fix parts in construction of `menu-item' item at end.
| -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." | |||
| 208 | (append (cdr defn) (list :image image) props)) | 208 | (append (cdr defn) (list :image image) props)) |
| 209 | (setq defn (cdr defn)) | 209 | (setq defn (cdr defn)) |
| 210 | (define-key-after in-map (vector key) | 210 | (define-key-after in-map (vector key) |
| 211 | (append `(menu-item ,(car defn) ,(cddr defn)) | 211 | (append `(menu-item ,(car defn) ,(cdr defn)) |
| 212 | (list :image image) props))))))) | 212 | (list :image image) props))))))) |
| 213 | 213 | ||
| 214 | ;;; Set up some global items. Additions/deletions up for grabs. | 214 | ;;; Set up some global items. Additions/deletions up for grabs. |