187 |
(define-key map "\^?" 'scroll-down) |
(define-key map "\^?" 'scroll-down) |
188 |
(define-key map "\C-c\C-f" 'next-error-follow-minor-mode) |
(define-key map "\C-c\C-f" 'next-error-follow-minor-mode) |
189 |
|
|
|
;; This is intolerable -- rms |
|
|
;;; (define-key map [remap next-line] 'compilation-next-error) |
|
|
;;; (define-key map [remap previous-line] 'compilation-previous-error) |
|
|
|
|
190 |
(define-key map "\r" 'compile-goto-error) ;; ? |
(define-key map "\r" 'compile-goto-error) ;; ? |
191 |
(define-key map "n" 'next-error-no-select) |
(define-key map "n" 'next-error-no-select) |
192 |
(define-key map "p" 'previous-error-no-select) |
(define-key map "p" 'previous-error-no-select) |
193 |
(define-key map "{" 'compilation-previous-file) |
(define-key map "{" 'compilation-previous-file) |
194 |
(define-key map "}" 'compilation-next-file) |
(define-key map "}" 'compilation-next-file) |
195 |
(define-key map [backtab] 'compilation-previous-file) |
(define-key map "\t" 'compilation-next-error) |
196 |
(define-key map "\t" 'compilation-next-file) |
(define-key map [backtab] 'compilation-previous-error) |
197 |
|
|
198 |
;; Set up the menu-bar |
;; Set up the menu-bar |
199 |
(define-key map [menu-bar grep] |
(define-key map [menu-bar grep] |