Mercurial > emacs

comparison lisp/info.el @ 44306:33a65a57f38a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(info-tool-bar-map): Use tool-bar-local-item-from-menu.
author Richard M. Stallman <rms@gnu.org>
date Mon, 01 Apr 2002 16:27:59 +0000
parents 5de6df44f85f
children c4bbb272c48d
comparison
equal deleted inserted replaced
44305:b45308074bfd 44306:33a65a57f38a
2149 ["Exit" Info-exit :help "Stop reading Info"])) 2149 ["Exit" Info-exit :help "Stop reading Info"]))
2150 2150
2151 2151
2152 (defvar info-tool-bar-map 2152 (defvar info-tool-bar-map
2153 (if (display-graphic-p) 2153 (if (display-graphic-p)
2154 (let ((tool-bar-map (make-sparse-keymap))) 2154 (let ((map (make-sparse-keymap)))
2155 (tool-bar-add-item-from-menu 'Info-exit "close" Info-mode-map) 2155 (tool-bar-local-item-from-menu 'Info-exit "close" map Info-mode-map)
2156 (tool-bar-add-item-from-menu 'Info-prev "left_arrow" Info-mode-map) 2156 (tool-bar-local-item-from-menu 'Info-prev "left_arrow" map Info-mode-map)
2157 (tool-bar-add-item-from-menu 'Info-next "right_arrow" Info-mode-map) 2157 (tool-bar-local-item-from-menu 'Info-next "right_arrow" map Info-mode-map)
2158 (tool-bar-add-item-from-menu 'Info-up "up_arrow" Info-mode-map) 2158 (tool-bar-local-item-from-menu 'Info-up "up_arrow" map Info-mode-map)
2159 (tool-bar-add-item-from-menu 'Info-last "undo" Info-mode-map) 2159 (tool-bar-local-item-from-menu 'Info-last "undo" map Info-mode-map)
2160 (tool-bar-add-item-from-menu 'Info-top-node "home" Info-mode-map) 2160 (tool-bar-local-item-from-menu 'Info-top-node "home" map Info-mode-map)
2161 (tool-bar-add-item-from-menu 'Info-index "index" Info-mode-map) 2161 (tool-bar-local-item-from-menu 'Info-index "index" map Info-mode-map)
2162 (tool-bar-add-item-from-menu 'Info-goto-node "jump_to" Info-mode-map) 2162 (tool-bar-local-item-from-menu 'Info-goto-node "jump_to" map Info-mode-map)
2163 (tool-bar-add-item-from-menu 'Info-search "search" Info-mode-map) 2163 (tool-bar-local-item-from-menu 'Info-search "search" map Info-mode-map)
2164 tool-bar-map))) 2164 map)))
2165 2165
2166 (defvar Info-menu-last-node nil) 2166 (defvar Info-menu-last-node nil)
2167 ;; Last node the menu was created for. 2167 ;; Last node the menu was created for.
2168 ;; Value is a list, (FILE-NAME NODE-NAME). 2168 ;; Value is a list, (FILE-NAME NODE-NAME).
2169 2169