diff options
| author | Chong Yidong | 2008-10-11 19:57:25 +0000 |
|---|---|---|
| committer | Chong Yidong | 2008-10-11 19:57:25 +0000 |
| commit | b88e7560b8d24accb4ae6f990641bc7a67967674 (patch) | |
| tree | 1fcdafedc67958dddd8f8d02aedb9dd622d3f798 | |
| parent | 675ccaf0171c41eb09cce771a0de386459293305 (diff) | |
| download | emacs-b88e7560b8d24accb4ae6f990641bc7a67967674.tar.gz emacs-b88e7560b8d24accb4ae6f990641bc7a67967674.zip | |
(info-tool-bar-map): Initialize it unconditionally.
| -rw-r--r-- | lisp/info.el | 33 |
1 files changed, 16 insertions, 17 deletions
diff --git a/lisp/info.el b/lisp/info.el index 19604424970..0039a666c5f 100644 --- a/lisp/info.el +++ b/lisp/info.el | |||
| @@ -3284,23 +3284,22 @@ If FORK is non-nil, it is passed to `Info-goto-node'." | |||
| 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. |