Mercurial > emacs
comparison lisp/progmodes/grep.el @ 92230:d9373da2792d
(grep-mode-tool-bar-map): Change place on next
and previous.
author | Jan Djärv <jan.h.d@swipnet.se> |
---|---|
date | Tue, 26 Feb 2008 14:41:01 +0000 |
parents | ab425a596ec9 |
children | 402ee2cfca27 |
comparison
equal
deleted
inserted
replaced
92229:a917f8addf17 | 92230:d9373da2792d |
---|---|
222 | 222 |
223 (defvar grep-mode-tool-bar-map | 223 (defvar grep-mode-tool-bar-map |
224 (if (display-graphic-p) | 224 (if (display-graphic-p) |
225 (let ((map (butlast (copy-keymap tool-bar-map))) | 225 (let ((map (butlast (copy-keymap tool-bar-map))) |
226 (help (last tool-bar-map))) ;; Keep Help last in tool bar | 226 (help (last tool-bar-map))) ;; Keep Help last in tool bar |
227 (tool-bar-local-item | |
228 "left-arrow" 'previous-error-no-select 'previous-error-no-select map | |
229 :rtl "right-arrow" | |
230 :help "Goto previous match") | |
227 (tool-bar-local-item | 231 (tool-bar-local-item |
228 "right-arrow" 'next-error-no-select 'next-error-no-select map | 232 "right-arrow" 'next-error-no-select 'next-error-no-select map |
229 :rtl "left-arrow" | 233 :rtl "left-arrow" |
230 :help "Goto next match") | 234 :help "Goto next match") |
231 (tool-bar-local-item | |
232 "left-arrow" 'previous-error-no-select 'previous-error-no-select map | |
233 :rtl "right-arrow" | |
234 :help "Goto previous match") | |
235 (tool-bar-local-item | 235 (tool-bar-local-item |
236 "cancel" 'kill-compilation 'kill-compilation map | 236 "cancel" 'kill-compilation 'kill-compilation map |
237 :help "Stop grep") | 237 :help "Stop grep") |
238 (tool-bar-local-item | 238 (tool-bar-local-item |
239 "refresh" 'recompile 'recompile map | 239 "refresh" 'recompile 'recompile map |