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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6a220d33136910f3c76c6c9bf9a0dc733ea396c0..4aea9bfb446f79f678e1da0c4ab0dd01b4ed549e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2008-02-26  Jan Dj\e$(Q)Z\e(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 746d650c95bc5996600d06c669660a6430ba6e62..b75180e2c519ac3af6ee0b15bf504b9e8d92e12f 100644 (file)
--- 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")