diff options
| author | Richard M. Stallman | 2002-04-01 16:27:59 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2002-04-01 16:27:59 +0000 |
| commit | df6aed9925ed1b91f36a4c1fcbb8ffd6848e3f17 (patch) | |
| tree | 13355c7f161780529a292f5b02744cdf84cc36e6 | |
| parent | 83512b21d16e3d6ebdb5b23174837589f96440ec (diff) | |
| download | emacs-df6aed9925ed1b91f36a4c1fcbb8ffd6848e3f17.tar.gz emacs-df6aed9925ed1b91f36a4c1fcbb8ffd6848e3f17.zip | |
(info-tool-bar-map): Use tool-bar-local-item-from-menu.
| -rw-r--r-- | lisp/info.el | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/lisp/info.el b/lisp/info.el index 7e0dad00923..86642b7fd36 100644 --- a/lisp/info.el +++ b/lisp/info.el | |||
| @@ -2151,17 +2151,17 @@ If no reference to follow, moves to the next node, or up if none." | |||
| 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. |