From df1a5d7dde0e3c702f7aba463c2685ab68ed0840 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Jan=20Dj=C3=A4rv?= Date: Tue, 26 Feb 2008 14:41:25 +0000 Subject: [PATCH] (compilation-mode-tool-bar-map): The same. --- lisp/ChangeLog | 7 +++++++ lisp/progmodes/compile.el | 8 ++++---- 2 files changed, 11 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 6a220d33136..4aea9bfb446 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,10 @@ +2008-02-26 Jan Dj$(Q)Z(Brv + + * progmodes/grep.el (grep-mode-tool-bar-map): Change place on next + and previous. + + * progmodes/compile.el (compilation-mode-tool-bar-map): The same. + 2008-02-26 Glenn Morris * net/net-utils.el (top-level): Don't require comint when compiling. diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el index 746d650c95b..b75180e2c51 100644 --- a/lisp/progmodes/compile.el +++ b/lisp/progmodes/compile.el @@ -1382,14 +1382,14 @@ Returns the compilation buffer created." (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 error") (tool-bar-local-item "left-arrow" 'previous-error-no-select 'previous-error-no-select map :rtl "right-arrow" :help "Goto previous error") + (tool-bar-local-item + "right-arrow" 'next-error-no-select 'next-error-no-select map + :rtl "left-arrow" + :help "Goto next error") (tool-bar-local-item "cancel" 'kill-compilation 'kill-compilation map :help "Stop compilation") -- 2.39.5