Mercurial > emacs

comparison lisp/info.el @ 76812:dc6d80edce90

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(info-tool-bar-map): Use "exit" for Info-exit. Move to the right.
author Reiner Steib <Reiner.Steib@gmx.de>
date Fri, 30 Mar 2007 21:48:52 +0000
parents a05e2047bdb8
children b219eac092dd
comparison
equal deleted inserted replaced
76811:72a276765477 76812:dc6d80edce90
3242 3242
3243 3243
3244 (defvar info-tool-bar-map 3244 (defvar info-tool-bar-map
3245 (if (display-graphic-p) 3245 (if (display-graphic-p)
3246 (let ((map (make-sparse-keymap))) 3246 (let ((map (make-sparse-keymap)))
3247 (tool-bar-local-item-from-menu 'Info-exit "close" map Info-mode-map)
3248 (tool-bar-local-item-from-menu 'Info-history-back "left-arrow" map Info-mode-map) 3247 (tool-bar-local-item-from-menu 'Info-history-back "left-arrow" map Info-mode-map)
3249 (tool-bar-local-item-from-menu 'Info-history-forward "right-arrow" map Info-mode-map) 3248 (tool-bar-local-item-from-menu 'Info-history-forward "right-arrow" map Info-mode-map)
3250 (tool-bar-local-item-from-menu 'Info-prev "prev-node" map Info-mode-map) 3249 (tool-bar-local-item-from-menu 'Info-prev "prev-node" map Info-mode-map)
3251 (tool-bar-local-item-from-menu 'Info-next "next-node" map Info-mode-map) 3250 (tool-bar-local-item-from-menu 'Info-next "next-node" map Info-mode-map)
3252 (tool-bar-local-item-from-menu 'Info-up "up-node" map Info-mode-map) 3251 (tool-bar-local-item-from-menu 'Info-up "up-node" map Info-mode-map)
3253 (tool-bar-local-item-from-menu 'Info-top-node "home" map Info-mode-map) 3252 (tool-bar-local-item-from-menu 'Info-top-node "home" map Info-mode-map)
3254 (tool-bar-local-item-from-menu 'Info-goto-node "jump-to" map Info-mode-map) 3253 (tool-bar-local-item-from-menu 'Info-goto-node "jump-to" map Info-mode-map)
3255 (tool-bar-local-item-from-menu 'Info-index "index" map Info-mode-map) 3254 (tool-bar-local-item-from-menu 'Info-index "index" map Info-mode-map)
3256 (tool-bar-local-item-from-menu 'Info-search "search" map Info-mode-map) 3255 (tool-bar-local-item-from-menu 'Info-search "search" map Info-mode-map)
3256 (tool-bar-local-item-from-menu 'Info-exit "exit" map Info-mode-map)
3257 map))) 3257 map)))
3258 3258
3259 (defvar Info-menu-last-node nil) 3259 (defvar Info-menu-last-node nil)
3260 ;; Last node the menu was created for. 3260 ;; Last node the menu was created for.
3261 ;; Value is a list, (FILE-NAME NODE-NAME). 3261 ;; Value is a list, (FILE-NAME NODE-NAME).