Commit ecad93d2 authored by Chong Yidong's avatar Chong Yidong
Browse files

(grep-mode-tool-bar-map): Initialize it unconditionally.

parent f4c77d44
...@@ -228,26 +228,25 @@ See `compilation-error-screen-columns'" ...@@ -228,26 +228,25 @@ See `compilation-error-screen-columns'"
`compilation-minor-mode-map' is a cdr of this.") `compilation-minor-mode-map' is a cdr of this.")
(defvar grep-mode-tool-bar-map (defvar grep-mode-tool-bar-map
(if (display-graphic-p) (let ((map (butlast (copy-keymap tool-bar-map)))
(let ((map (butlast (copy-keymap tool-bar-map))) (help (last tool-bar-map))) ;; Keep Help last in tool bar
(help (last tool-bar-map))) ;; Keep Help last in tool bar (tool-bar-local-item
(tool-bar-local-item "left-arrow" 'previous-error-no-select 'previous-error-no-select map
"left-arrow" 'previous-error-no-select 'previous-error-no-select map :rtl "right-arrow"
:rtl "right-arrow" :help "Goto previous match")
:help "Goto previous match") (tool-bar-local-item
(tool-bar-local-item "right-arrow" 'next-error-no-select 'next-error-no-select map
"right-arrow" 'next-error-no-select 'next-error-no-select map :rtl "left-arrow"
:rtl "left-arrow" :help "Goto next match")
:help "Goto next match") (tool-bar-local-item
(tool-bar-local-item "cancel" 'kill-compilation 'kill-compilation map
"cancel" 'kill-compilation 'kill-compilation map :enable '(let ((buffer (compilation-find-buffer)))
:enable '(let ((buffer (compilation-find-buffer))) (get-buffer-process buffer))
(get-buffer-process buffer)) :help "Stop grep")
:help "Stop grep") (tool-bar-local-item
(tool-bar-local-item "refresh" 'recompile 'recompile map
"refresh" 'recompile 'recompile map :help "Restart grep")
:help "Restart grep") (append map help)))
(append map help))))
(defalias 'kill-grep 'kill-compilation) (defalias 'kill-grep 'kill-compilation)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment