168 |
compile-command))) |
compile-command))) |
169 |
(setq remote-compile-host host) |
(setq remote-compile-host host) |
170 |
(save-some-buffers nil nil) |
(save-some-buffers nil nil) |
171 |
(compile-internal compile-command "No more errors") |
(compilation-start compile-command) |
172 |
;; Set comint-file-name-prefix in the compilation buffer so |
;; Set comint-file-name-prefix in the compilation buffer so |
173 |
;; compilation-parse-errors will find referenced files by ange-ftp. |
;; compilation-parse-errors will find referenced files by ange-ftp. |
174 |
(with-current-buffer compilation-last-buffer |
(with-current-buffer compilation-last-buffer |