mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Chong Yidong 2008-10-11 19:58:49 +00:00
parent f4c77d4457
commit ecad93d232
1 changed files with 19 additions and 20 deletions
Download patch file Download diff file Expand all files Collapse all files

39
lisp/progmodes/grep.el
View file

@ -228,26 +228,25 @@ See `compilation-error-screen-columns'"
`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)