(compilation-mode-tool-bar-map): The same.

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  <jan.h.d@swipnet.se>
+
+        * 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  <rgm@gnu.org>
 
         * 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")