# HG changeset patch
# User Jan D <jan.h.d@swipnet.se>
# Date 1272180181 -7200
# Node ID 21b1df34bc554b8105c88ff13fdb3faed18f5936
# Parent  473b75d8b12023d9b5d13c045310ad4c40256b4c
tool-bar.el: Revert unintended checkin in rev 100010.

diff -r 473b75d8b120 -r 21b1df34bc55 lisp/ChangeLog
--- a/lisp/ChangeLog	Sat Apr 24 12:50:03 2010 -0700
+++ b/lisp/ChangeLog	Sun Apr 25 09:23:01 2010 +0200
@@ -1,3 +1,8 @@
+2010-04-25  Jan Djärv  <jan.h.d@swipnet.se>
+
+	* tool-bar.el (tool-bar-local-item-from-menu): Revert unintended
+	checkin in rev 100010.
+
 2010-04-24  Glenn Morris  <rgm@gnu.org>
 
 	* emacs-lisp/authors.el (authors-obsolete-files-regexps):
diff -r 473b75d8b120 -r 21b1df34bc55 lisp/tool-bar.el
--- a/lisp/tool-bar.el	Sat Apr 24 12:50:03 2010 -0700
+++ b/lisp/tool-bar.el	Sun Apr 25 09:23:01 2010 +0200
@@ -243,24 +243,24 @@
                 ;; Last element in the bound key sequence:
                 (kk (aref k (1- (length k)))))
             (if (and (keymapp m)
-                     (symbolp kk))      ;FIXME: Why?  --Stef
+                     (symbolp kk))
                 (setq submap m
                       key kk)))))
-    (when submap
-      (let ((defn nil))
-        ;; Here, we're essentially doing a "lookup-key without get_keyelt".
-        (map-keymap (lambda (k b) (if (eq k key) (setq defn b)))
-                    submap)
+    (when (and (symbolp submap) (boundp submap))
+      (setq submap (eval submap)))
+    (let ((defn (assq key (cdr submap))))
+      (if (eq (cadr defn) 'menu-item)
+          (define-key-after in-map (vector key)
+            (append (cdr defn) (list :image image-exp) props))
+        (setq defn (cdr defn))
         (define-key-after in-map (vector key)
-          (if (eq (car defn) 'menu-item)
-              (append (cdr defn) (list :image image-exp) props)
-            (let ((rest (cdr defn)))
-              ;; If the rest of the definition starts
-              ;; with a list of menu cache info, get rid of that.
-              (if (and (consp rest) (consp (car rest)))
-                  (setq rest (cdr rest)))
-              (append `(menu-item ,(car defn) ,rest)
-                      (list :image image-exp) props))))))))
+          (let ((rest (cdr defn)))
+            ;; If the rest of the definition starts
+            ;; with a list of menu cache info, get rid of that.
+            (if (and (consp rest) (consp (car rest)))
+                (setq rest (cdr rest)))
+            (append `(menu-item ,(car defn) ,rest)
+                    (list :image image-exp) props)))))))
 
 ;;; Set up some global items.  Additions/deletions up for grabs.