diff options
| author | Chong Yidong <cyd@stupidchicken.com> | 2011-01-08 23:13:47 -0500 |
|---|---|---|
| committer | Chong Yidong <cyd@stupidchicken.com> | 2011-01-08 23:13:47 -0500 |
| commit | 900503ae7959dc465c3897f3deafd55e09a93ee3 (patch) | |
| tree | 70e363d80d2aa6c2c02877120476d9926f4a74cf /lisp/info.el | |
| parent | 21a76236f6530c2c01385956f0984f34e017f5c5 (diff) | |
| download | emacs-900503ae7959dc465c3897f3deafd55e09a93ee3.tar.gz | |
Tweaks to tool-bar for default, VC-dir, Compile, and Info.
* tool-bar.el (tool-bar-setup): Remove Help button. Remove label
from Search and add a label to Undo.
* vc/vc-dir.el (vc-dir-tool-bar-map): Rearrange, removing
inappropriate buttons and adding :vert-only tags.
* progmodes/compile.el (compilation-mode-tool-bar-map): Adjust to
removal of Help tool-bar button. Remove Undo button for space.
* info.el (info-tool-bar-map): Add :vert-only tags.
Diffstat (limited to 'lisp/info.el')
| -rw-r--r-- | lisp/info.el | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/lisp/info.el b/lisp/info.el index ad92914a54d..7391dfad39e 100644 --- a/lisp/info.el +++ b/lisp/info.el @@ -3777,13 +3777,16 @@ If FORK is non-nil, it is passed to `Info-goto-node'." (tool-bar-local-item-from-menu 'Info-up "up-node" map Info-mode-map :vert-only t) (define-key-after map [separator-2] menu-bar-separator) - (tool-bar-local-item-from-menu 'Info-top-node "home" map Info-mode-map) + (tool-bar-local-item-from-menu 'Info-top-node "home" map Info-mode-map + :vert-only t) (tool-bar-local-item-from-menu 'Info-goto-node "jump-to" map Info-mode-map) (define-key-after map [separator-3] menu-bar-separator) (tool-bar-local-item-from-menu 'Info-index "index" map Info-mode-map - :label "Index Search") - (tool-bar-local-item-from-menu 'Info-search "search" map Info-mode-map) - (tool-bar-local-item-from-menu 'Info-exit "exit" map Info-mode-map) + :label "Index") + (tool-bar-local-item-from-menu 'Info-search "search" map Info-mode-map + :vert-only t) + (tool-bar-local-item-from-menu 'Info-exit "exit" map Info-mode-map + :vert-only t) map)) (defvar Info-menu-last-node nil) |