Mercurial > emacs
changeset 98629:05cb109b16cb
(grep-mode-tool-bar-map): Initialize it unconditionally.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Sat, 11 Oct 2008 19:58:49 +0000 |
| parents | e358c1f2f0ac |
| children | a4dc0840f5dd |
| files | lisp/progmodes/grep.el |
| diffstat | 1 files changed, 19 insertions(+), 20 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/grep.el Sat Oct 11 19:57:48 2008 +0000 +++ b/lisp/progmodes/grep.el Sat Oct 11 19:58:49 2008 +0000 @@ -228,26 +228,25 @@ `compilation-minor-mode-map' is a cdr of this.") (defvar grep-mode-tool-bar-map - (if (display-graphic-p) - (let ((map (butlast (copy-keymap tool-bar-map))) - (help (last tool-bar-map))) ;; Keep Help last in tool bar - (tool-bar-local-item - "left-arrow" 'previous-error-no-select 'previous-error-no-select map - :rtl "right-arrow" - :help "Goto previous match") - (tool-bar-local-item - "right-arrow" 'next-error-no-select 'next-error-no-select map - :rtl "left-arrow" - :help "Goto next match") - (tool-bar-local-item - "cancel" 'kill-compilation 'kill-compilation map - :enable '(let ((buffer (compilation-find-buffer))) - (get-buffer-process buffer)) - :help "Stop grep") - (tool-bar-local-item - "refresh" 'recompile 'recompile map - :help "Restart grep") - (append map help)))) + (let ((map (butlast (copy-keymap tool-bar-map))) + (help (last tool-bar-map))) ;; Keep Help last in tool bar + (tool-bar-local-item + "left-arrow" 'previous-error-no-select 'previous-error-no-select map + :rtl "right-arrow" + :help "Goto previous match") + (tool-bar-local-item + "right-arrow" 'next-error-no-select 'next-error-no-select map + :rtl "left-arrow" + :help "Goto next match") + (tool-bar-local-item + "cancel" 'kill-compilation 'kill-compilation map + :enable '(let ((buffer (compilation-find-buffer))) + (get-buffer-process buffer)) + :help "Stop grep") + (tool-bar-local-item + "refresh" 'recompile 'recompile map + :help "Restart grep") + (append map help))) (defalias 'kill-grep 'kill-compilation)