From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 19 Apr 2002 00:09:20 +0000 (+0000)
Subject: (tool-bar-local-item-from-menu):
X-Git-Tag: ttn-vms-21-2-B4~15548
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=97c21947844a07cf2f80cc52188614a74c8b0cbe;p=emacs.git

(tool-bar-local-item-from-menu):
Fix parts in construction of `menu-item' item at end.
---

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.