From 97c21947844a07cf2f80cc52188614a74c8b0cbe Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 19 Apr 2002 00:09:20 +0000 Subject: [PATCH] (tool-bar-local-item-from-menu): Fix parts in construction of `menu-item' item at end. --- lisp/toolbar/tool-bar.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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.