mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2025-01-05 11:45:45 +00:00
(grep-mode-map): Bind TAB to `compilation-next-error'
and [backtab] to `compilation-previous-error'.
This commit is contained in:
parent
70fec115d4
commit
94c713b27d
@ -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.
|
||||
|
@ -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]
|
||||
|
Loading…
Reference in New Issue
Block a user