Mercurial > emacs
comparison lisp/progmodes/compile.el @ 2478:fb350430116e
(compile-internal): Initialize the process-mark.
| author | Roland McGrath <roland@gnu.org> |
|---|---|
| date | Wed, 07 Apr 1993 20:58:20 +0000 |
| parents | 11bc604c077f |
| children | f80a342fd945 |
comparison
equal
deleted
inserted
replaced
| 2477:4d0d858bc33f | 2478:fb350430116e |
|---|---|
| 320 (let ((proc (start-process-shell-command (downcase mode-name) | 320 (let ((proc (start-process-shell-command (downcase mode-name) |
| 321 outbuf | 321 outbuf |
| 322 command))) | 322 command))) |
| 323 (set-process-sentinel proc 'compilation-sentinel) | 323 (set-process-sentinel proc 'compilation-sentinel) |
| 324 (set-process-filter proc 'compilation-filter) | 324 (set-process-filter proc 'compilation-filter) |
| 325 (set-marker (process-mark proc) (point) outbuf) | |
| 325 (setq compilation-in-progress (cons proc compilation-in-progress)))) | 326 (setq compilation-in-progress (cons proc compilation-in-progress)))) |
| 326 ;; Make it so the next C-x ` will use this buffer. | 327 ;; Make it so the next C-x ` will use this buffer. |
| 327 (setq compilation-last-buffer outbuf))) | 328 (setq compilation-last-buffer outbuf))) |
| 328 | 329 |
| 329 (defvar compilation-mode-map | 330 (defvar compilation-mode-map |