From: Jan Djärv <jan.h.d@swipnet.se>
Date: Tue, 26 Feb 2008 14:41:25 +0000 (+0000)
Subject: (compilation-mode-tool-bar-map): The same.
X-Git-Tag: emacs-pretest-23.0.90~7651
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=df1a5d7dde0e3c702f7aba463c2685ab68ed0840;p=emacs.git

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

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