(grep-mode-map): Bind TAB to `compilation-next-error'

and [backtab] to `compilation-previous-error'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index dd54c9f66a48cd07b1a88adf749d466840c26811..279a0323235e13525f6145ad526bacc32255f77f 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,10 @@
 2005-08-04  Juri Linkov  <juri@jurta.org>
 
+       * progmodes/compile.el (compilation-mode-map):
+       * progmodes/grep.el (grep-mode-map):
+       Bind TAB to `compilation-next-error' and [backtab] to
+       `compilation-previous-error'.
+
        * progmodes/grep.el (grep-regexp-alist): Replace complex regexp
        matching line numbers, column numbers and their ranges with regexp
        matching only line numbers.

diff --git a/lisp/progmodes/grep.el b/lisp/progmodes/grep.el
index 615608d288071c65f56cb080a1eac0fabe85fe76..4378a7c253d4d3fd7224648e59a38b68f2239cb1 100644 (file)
--- a/lisp/progmodes/grep.el
+++ b/lisp/progmodes/grep.el
@@ -187,17 +187,13 @@ See `compilation-error-screen-columns'"
     (define-key map "\^?" 'scroll-down)
     (define-key map "\C-c\C-f" 'next-error-follow-minor-mode)
 
-    ;; This is intolerable -- rms
-;;;    (define-key map [remap next-line] 'compilation-next-error)
-;;;    (define-key map [remap previous-line] 'compilation-previous-error)
-
     (define-key map "\r" 'compile-goto-error)  ;; ?
     (define-key map "n" 'next-error-no-select)
     (define-key map "p" 'previous-error-no-select)
     (define-key map "{" 'compilation-previous-file)
     (define-key map "}" 'compilation-next-file)
-    (define-key map [backtab] 'compilation-previous-file)
-    (define-key map "\t" 'compilation-next-file)
+    (define-key map "\t" 'compilation-next-error)
+    (define-key map [backtab] 'compilation-previous-error)
 
     ;; Set up the menu-bar
     (define-key map [menu-bar grep]