181 |
(let ((map (cons 'keymap compilation-minor-mode-map))) |
(let ((map (cons 'keymap compilation-minor-mode-map))) |
182 |
(define-key map " " 'scroll-up) |
(define-key map " " 'scroll-up) |
183 |
(define-key map "\^?" 'scroll-down) |
(define-key map "\^?" 'scroll-down) |
184 |
|
(define-key map "\C-c\C-f" 'next-error-follow-mode) |
185 |
|
|
186 |
;; This is intolerable -- rms |
;; This is intolerable -- rms |
187 |
;;; (define-key map [remap next-line] 'compilation-next-error) |
;;; (define-key map [remap next-line] 'compilation-next-error) |