equal
deleted
inserted
replaced
1220 (setq i (- i 4)))) |
1220 (setq i (- i 4)))) |
1221 |
1221 |
1222 ;;; ---------------------------------------------------------------- |
1222 ;;; ---------------------------------------------------------------- |
1223 (message "compile") |
1223 (message "compile") |
1224 |
1224 |
|
1225 ;; Prompt for compilation command. |
|
1226 (setq compilation-read-command 1) |
1225 (setq compile-auto-highlight t) |
1227 (setq compile-auto-highlight t) |
1226 (setq compile-command "make ") |
1228 (setq compile-command "make ") |
1227 (when (eq system-type 'berkeley-unix) |
1229 (when (eq system-type 'berkeley-unix) |
1228 (setq compile-command "gmake ")) |
1230 (setq compile-command "gmake ")) |
1229 ;; With '1' compilation window shall scroll down, with `first-error' stops scrolling at the first error. |
1231 ;; With '1' compilation window shall scroll down, with `first-error' stops scrolling at the first error. |