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