Mercurial > emacs
comparison lisp/net/rcompile.el @ 38420:0a4a44975e06
(remote-compile): Use make-local-variable.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Mon, 16 Jul 2001 02:07:12 +0000 |
| parents | b56f9152e329 |
| children | be541feb06cc |
comparison
equal
deleted
inserted
replaced
| 38419:6dd037b0146e | 38420:0a4a44975e06 |
|---|---|
| 169 (setq remote-compile-host host) | 169 (setq remote-compile-host host) |
| 170 (save-some-buffers nil nil) | 170 (save-some-buffers nil nil) |
| 171 (compile-internal compile-command "No more errors") | 171 (compile-internal compile-command "No more errors") |
| 172 ;; Set comint-file-name-prefix in the compilation buffer so | 172 ;; Set comint-file-name-prefix in the compilation buffer so |
| 173 ;; compilation-parse-errors will find referenced files by ange-ftp. | 173 ;; compilation-parse-errors will find referenced files by ange-ftp. |
| 174 (save-excursion | 174 (with-current-buffer compilation-last-buffer |
| 175 (set-buffer compilation-last-buffer) | 175 (set (make-local-variable 'comint-file-name-prefix) |
| 176 (make-variable-buffer-local 'comint-file-name-prefix) | 176 (concat "/" host ":"))))) |
| 177 (setq comint-file-name-prefix (concat "/" host ":"))))) | |
| 178 | 177 |
| 179 ;;; rcompile.el ends here | 178 ;;; rcompile.el ends here |