Mercurial > emacs
changeset 92204:ab425a596ec9
(grep-mode-tool-bar-map): New variable.
(grep-mode): Use grep-mode-tool-bar-map.
| author | Jan Djärv <jan.h.d@swipnet.se> |
|---|---|
| date | Mon, 25 Feb 2008 10:52:24 +0000 |
| parents | c50ae6f34d03 |
| children | 0ee7002082ab |
| files | lisp/progmodes/grep.el |
| diffstat | 1 files changed, 21 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/grep.el Mon Feb 25 10:52:09 2008 +0000 +++ b/lisp/progmodes/grep.el Mon Feb 25 10:52:24 2008 +0000 @@ -220,6 +220,26 @@ "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 @@ (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)