(info-tool-bar-map): Use "exit" for Info-exit. Move to the right.

2 files changed, 6 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 089a91b3453..f9219303013 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2007-03-30  Reiner Steib  <Reiner.Steib@gmx.de>
+
+        * info.el (info-tool-bar-map): Use "exit" for Info-exit.  Move to
+        the right.
+
 2007-03-30  Alan Mackenzie  <acm@muc.de>
 
         * progmodes/cc-cmds.el (c-forward-to-nth-EOF-}): Fix EOB bug.
diff --git a/lisp/info.el b/lisp/info.el
index b3c59c498a4..5713d1b23aa 100644
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -3244,7 +3244,6 @@ If FORK is non-nil, it i spassed to `Info-goto-node'."
 (defvar info-tool-bar-map
   (if (display-graphic-p)
       (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-history-back "left-arrow" map Info-mode-map)
         (tool-bar-local-item-from-menu 'Info-history-forward "right-arrow" map Info-mode-map)
         (tool-bar-local-item-from-menu 'Info-prev "prev-node" map Info-mode-map)
@@ -3254,6 +3253,7 @@ If FORK is non-nil, it i spassed to `Info-goto-node'."
         (tool-bar-local-item-from-menu 'Info-goto-node "jump-to" map Info-mode-map)
         (tool-bar-local-item-from-menu 'Info-index "index" map Info-mode-map)
         (tool-bar-local-item-from-menu 'Info-search "search" map Info-mode-map)
+        (tool-bar-local-item-from-menu 'Info-exit "exit" map Info-mode-map)
         map)))
 
 (defvar Info-menu-last-node nil)