# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1017678479 0
# Node ID 33a65a57f38aebcd8678c3eaf19d40f1397e0dab
# Parent  b45308074bfdb0d272d318a12a54ae6b558f1451
(info-tool-bar-map): Use tool-bar-local-item-from-menu.

diff -r b45308074bfd -r 33a65a57f38a lisp/info.el
--- a/lisp/info.el	Mon Apr 01 13:49:24 2002 +0000
+++ b/lisp/info.el	Mon Apr 01 16:27:59 2002 +0000
@@ -2151,17 +2151,17 @@
 
 (defvar info-tool-bar-map
   (if (display-graphic-p)
-      (let ((tool-bar-map (make-sparse-keymap)))
-	(tool-bar-add-item-from-menu 'Info-exit "close" Info-mode-map)
-	(tool-bar-add-item-from-menu 'Info-prev "left_arrow" Info-mode-map)
-	(tool-bar-add-item-from-menu 'Info-next "right_arrow" Info-mode-map)
-	(tool-bar-add-item-from-menu 'Info-up "up_arrow" Info-mode-map)
-	(tool-bar-add-item-from-menu 'Info-last "undo" Info-mode-map)
-	(tool-bar-add-item-from-menu 'Info-top-node "home" Info-mode-map)
-	(tool-bar-add-item-from-menu 'Info-index "index" Info-mode-map)
-	(tool-bar-add-item-from-menu 'Info-goto-node "jump_to" Info-mode-map)
-	(tool-bar-add-item-from-menu 'Info-search "search" Info-mode-map)
-	tool-bar-map)))
+      (let ((map (make-sparse-keymap)))
+	(tool-bar-local-item-from-menu 'Info-exit "close" map Info-mode-map)
+	(tool-bar-local-item-from-menu 'Info-prev "left_arrow" map Info-mode-map)
+	(tool-bar-local-item-from-menu 'Info-next "right_arrow" map Info-mode-map)
+	(tool-bar-local-item-from-menu 'Info-up "up_arrow" map Info-mode-map)
+	(tool-bar-local-item-from-menu 'Info-last "undo" map Info-mode-map)
+	(tool-bar-local-item-from-menu 'Info-top-node "home" map Info-mode-map)
+	(tool-bar-local-item-from-menu 'Info-index "index" map Info-mode-map)
+	(tool-bar-local-item-from-menu 'Info-goto-node "jump_to" map Info-mode-map)
+	(tool-bar-local-item-from-menu 'Info-search "search" map Info-mode-map)
+	map)))
 
 (defvar Info-menu-last-node nil)
 ;; Last node the menu was created for.