From df6aed9925ed1b91f36a4c1fcbb8ffd6848e3f17 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 1 Apr 2002 16:27:59 +0000 Subject: [PATCH] (info-tool-bar-map): Use tool-bar-local-item-from-menu. --- lisp/info.el | 22 +++++++++++----------- 1 file changed, 11 insertions(+), 11 deletions(-) diff --git a/lisp/info.el b/lisp/info.el index 7e0dad00923..86642b7fd36 100644 --- a/lisp/info.el +++ b/lisp/info.el @@ -2151,17 +2151,17 @@ If no reference to follow, moves to the next node, or up if none." (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. -- 2.11.4.GIT