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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 089a91b34532b8e89c07682ebfc74583b429b6f1..f921930301346dad7d914e7f4ddb1dfe8b98cf80 100644 (file)
--- 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 b3c59c498a4bca7c1aefbc2b81f0b15743ab7258..5713d1b23aa56aee2b576d4427ba07a54596372e 100644 (file)
--- 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)