From 38cd9f1734136fd33fc5bb050fe8085377850c4d Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Jan=20Dj=C3=A4rv?= Date: Mon, 25 Feb 2008 10:52:57 +0000 Subject: (grep-mode-tool-bar-map): New variable. (grep-mode): Use grep-mode-tool-bar-map. --- lisp/progmodes/grep.el | 21 +++++++++++++++++++++ 1 file changed, 21 insertions(+) (limited to 'lisp/progmodes/grep.el') diff --git a/lisp/progmodes/grep.el b/lisp/progmodes/grep.el index 0c7cb358f4a..ef147aa79e0 100644 --- a/lisp/progmodes/grep.el +++ b/lisp/progmodes/grep.el @@ -220,6 +220,26 @@ See `compilation-error-screen-columns'" "Keymap for grep buffers. `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 + "right-arrow" 'next-error-no-select 'next-error-no-select map + :rtl "left-arrow" + :help "Goto next match") + (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 + "cancel" 'kill-compilation 'kill-compilation map + :help "Stop grep") + (tool-bar-local-item + "refresh" 'recompile 'recompile map + :help "Restart grep") + (append map help)))) + (defalias 'kill-grep 'kill-compilation) ;;;; TODO --- refine this!! @@ -586,6 +606,7 @@ Set up `compilation-exit-message-function' and run `grep-setup-hook'." (define-compilation-mode grep-mode "Grep" "Sets `grep-last-buffer' and `compilation-window-height'." (setq grep-last-buffer (current-buffer)) + (set (make-local-variable 'tool-bar-map) grep-mode-tool-bar-map) (set (make-local-variable 'compilation-error-face) grep-hit-face) (set (make-local-variable 'compilation-error-regexp-alist) -- cgit v1.2.1