878 |
;; Set the EMACS variable, but |
;; Set the EMACS variable, but |
879 |
;; don't override users' setting of $EMACS. |
;; don't override users' setting of $EMACS. |
880 |
(unless (getenv "EMACS") '("EMACS=t")) |
(unless (getenv "EMACS") '("EMACS=t")) |
881 |
process-environment)) |
(copy-sequence process-environment))) |
882 |
(thisdir default-directory) |
(thisdir default-directory) |
883 |
outwin outbuf) |
outwin outbuf) |
884 |
(with-current-buffer |
(with-current-buffer |
1059 |
(set-keymap-parent map compilation-minor-mode-map) |
(set-keymap-parent map compilation-minor-mode-map) |
1060 |
(define-key map " " 'scroll-up) |
(define-key map " " 'scroll-up) |
1061 |
(define-key map "\^?" 'scroll-down) |
(define-key map "\^?" 'scroll-down) |
1062 |
|
(define-key map "\C-c\C-f" 'next-error-follow-minor-mode) |
1063 |
|
|
1064 |
;; Set up the menu-bar |
;; Set up the menu-bar |
1065 |
(define-key map [menu-bar compilation] |
(define-key map [menu-bar compilation] |