Mercurial > emacs

changeset 98627:de01cc2d680e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(info-tool-bar-map): Initialize it unconditionally.
author Chong Yidong <cyd@stupidchicken.com>
date Sat, 11 Oct 2008 19:57:25 +0000
parents 5ea82b1a813b
children e358c1f2f0ac
files lisp/info.el
diffstat 1 files changed, 16 insertions(+), 17 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/info.el	Sat Oct 11 19:56:32 2008 +0000
+++ b/lisp/info.el	Sat Oct 11 19:57:25 2008 +0000
@@ -3284,23 +3284,22 @@
 
 
 (defvar info-tool-bar-map
-  (if (display-graphic-p)
-      (let ((map (make-sparse-keymap)))
-	(tool-bar-local-item-from-menu 'Info-history-back "left-arrow" map Info-mode-map
-				       :rtl "right-arrow")
-	(tool-bar-local-item-from-menu 'Info-history-forward "right-arrow" map Info-mode-map
-				       :rtl "left-arrow")
-	(tool-bar-local-item-from-menu 'Info-prev "prev-node" map Info-mode-map
-				       :rtl "next-node")
-	(tool-bar-local-item-from-menu 'Info-next "next-node" map Info-mode-map
-				       :rtl "prev-node")
-	(tool-bar-local-item-from-menu 'Info-up "up-node" 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-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)))
+  (let ((map (make-sparse-keymap)))
+    (tool-bar-local-item-from-menu 'Info-history-back "left-arrow" map Info-mode-map
+				   :rtl "right-arrow")
+    (tool-bar-local-item-from-menu 'Info-history-forward "right-arrow" map Info-mode-map
+				   :rtl "left-arrow")
+    (tool-bar-local-item-from-menu 'Info-prev "prev-node" map Info-mode-map
+				   :rtl "next-node")
+    (tool-bar-local-item-from-menu 'Info-next "next-node" map Info-mode-map
+				   :rtl "prev-node")
+    (tool-bar-local-item-from-menu 'Info-up "up-node" 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-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)
 ;; Last node the menu was created for.