From: Juri Linkov Date: Thu, 4 Aug 2005 01:38:42 +0000 (+0000) Subject: (grep-mode-map): Bind TAB to `compilation-next-error' X-Git-Tag: emacs-pretest-22.0.90~7799 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=94c713b27dba2c0fcca72c78bfec1a58a2e03388;p=emacs.git (grep-mode-map): Bind TAB to `compilation-next-error' and [backtab] to `compilation-previous-error'. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index dd54c9f66a4..279a0323235 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,10 @@ 2005-08-04 Juri Linkov + * 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 615608d2880..4378a7c253d 100644 --- 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]