# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1019174960 0
# Node ID 1537553adc43378dedd15c954ee7723dc619fd5e
# Parent  c94319aaffb8b2f26cf4d6ed025d48bfc678ba8f
(tool-bar-local-item-from-menu):
Fix parts in construction of `menu-item' item at end.

diff -r c94319aaffb8 -r 1537553adc43 lisp/toolbar/tool-bar.el
--- a/lisp/toolbar/tool-bar.el	Fri Apr 19 00:08:19 2002 +0000
+++ b/lisp/toolbar/tool-bar.el	Fri Apr 19 00:09:20 2002 +0000
@@ -208,7 +208,7 @@
 	      (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.