mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-03-01 11:20:41 -08:00
Code Issues Projects Releases Wiki Activity

(grep-mode-tool-bar-map): New variable.

Browse source 
(grep-mode): Use grep-mode-tool-bar-map.
This commit is contained in:
Jan Djärv 2008-02-25 10:52:57 +00:00
parent c45e48d29a
commit 38cd9f1734
2 changed files with 32 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

11
lisp/ChangeLog
View file

@ -1,3 +1,14 @@
2008-02-25 Jan Dj$(Q)Z(Brv <jan.h.d@swipnet.se>
* progmodes/grep.el (grep-mode-tool-bar-map): New variable.
(grep-mode): Use grep-mode-tool-bar-map.
* progmodes/compile.el (tool-bar): Require tool-bar.
(compilation-mode-tool-bar-map): New variable.
(compilation-mode): Use compilation-mode-tool-bar-map.
* term/x-win.el (x-gtk-stock-map): Add cancel. Remove extensions.
2008-02-25 Glenn Morris <rgm@gnu.org>
* vc-sccs.el (vc-sccs-diff): Fix setting of oldvers and newvers.

21
lisp/progmodes/grep.el
View file

@ -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)