Mercurial > emacs

comparison lisp/info.el @ 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 42c1a6f2facd
children 5b8c868971fc
comparison
equal deleted inserted replaced
98626:5ea82b1a813b 98627:de01cc2d680e
3282 :help "Create a twin copy of the current Info buffer."] 3282 :help "Create a twin copy of the current Info buffer."]
3283 ["Exit" Info-exit :help "Stop reading Info"])) 3283 ["Exit" Info-exit :help "Stop reading Info"]))
3284 3284
3285 3285
3286 (defvar info-tool-bar-map 3286 (defvar info-tool-bar-map
3287 (if (display-graphic-p) 3287 (let ((map (make-sparse-keymap)))
3288 (let ((map (make-sparse-keymap))) 3288 (tool-bar-local-item-from-menu 'Info-history-back "left-arrow" map Info-mode-map
3289 (tool-bar-local-item-from-menu 'Info-history-back "left-arrow" map Info-mode-map 3289 :rtl "right-arrow")
3290 :rtl "right-arrow") 3290 (tool-bar-local-item-from-menu 'Info-history-forward "right-arrow" map Info-mode-map
3291 (tool-bar-local-item-from-menu 'Info-history-forward "right-arrow" map Info-mode-map 3291 :rtl "left-arrow")
3292 :rtl "left-arrow") 3292 (tool-bar-local-item-from-menu 'Info-prev "prev-node" map Info-mode-map
3293 (tool-bar-local-item-from-menu 'Info-prev "prev-node" map Info-mode-map 3293 :rtl "next-node")
3294 :rtl "next-node") 3294 (tool-bar-local-item-from-menu 'Info-next "next-node" map Info-mode-map
3295 (tool-bar-local-item-from-menu 'Info-next "next-node" map Info-mode-map 3295 :rtl "prev-node")
3296 :rtl "prev-node") 3296 (tool-bar-local-item-from-menu 'Info-up "up-node" map Info-mode-map)
3297 (tool-bar-local-item-from-menu 'Info-up "up-node" map Info-mode-map) 3297 (tool-bar-local-item-from-menu 'Info-top-node "home" map Info-mode-map)
3298 (tool-bar-local-item-from-menu 'Info-top-node "home" map Info-mode-map) 3298 (tool-bar-local-item-from-menu 'Info-goto-node "jump-to" map Info-mode-map)
3299 (tool-bar-local-item-from-menu 'Info-goto-node "jump-to" map Info-mode-map) 3299 (tool-bar-local-item-from-menu 'Info-index "index" map Info-mode-map)
3300 (tool-bar-local-item-from-menu 'Info-index "index" map Info-mode-map) 3300 (tool-bar-local-item-from-menu 'Info-search "search" map Info-mode-map)
3301 (tool-bar-local-item-from-menu 'Info-search "search" map Info-mode-map) 3301 (tool-bar-local-item-from-menu 'Info-exit "exit" map Info-mode-map)
3302 (tool-bar-local-item-from-menu 'Info-exit "exit" map Info-mode-map) 3302 map))
3303 map)))
3304 3303
3305 (defvar Info-menu-last-node nil) 3304 (defvar Info-menu-last-node nil)
3306 ;; Last node the menu was created for. 3305 ;; Last node the menu was created for.
3307 ;; Value is a list, (FILE-NAME NODE-NAME). 3306 ;; Value is a list, (FILE-NAME NODE-NAME).
3308 3307