diff options
| author | Richard M. Stallman | 1994-04-24 08:15:18 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-04-24 08:15:18 +0000 |
| commit | ebf0b439d599bab7c884c62b99bd1048cefe9ca7 (patch) | |
| tree | 2fc4c1ab2cd39b3fc3017945af610760d01c163b | |
| parent | baae3c4ef0839fb0faa8de8951c5c94b91c2eebc (diff) | |
| download | emacs-ebf0b439d599bab7c884c62b99bd1048cefe9ca7.tar.gz emacs-ebf0b439d599bab7c884c62b99bd1048cefe9ca7.zip | |
(compilation-setup, compilation-sentinel):
Remove space after `:' in mode-line-process.
| -rw-r--r-- | lisp/progmodes/compile.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el index cc7e0b6fb28..2ec9edae9e9 100644 --- a/lisp/progmodes/compile.el +++ b/lisp/progmodes/compile.el | |||
| @@ -413,7 +413,7 @@ Runs `compilation-mode-hook' with `run-hooks' (which see)." | |||
| 413 | ;; Prepare the buffer for the compilation parsing commands to work. | 413 | ;; Prepare the buffer for the compilation parsing commands to work. |
| 414 | (defun compilation-setup () | 414 | (defun compilation-setup () |
| 415 | ;; Make the buffer's mode line show process state. | 415 | ;; Make the buffer's mode line show process state. |
| 416 | (setq mode-line-process '(": %s")) | 416 | (setq mode-line-process '(":%s")) |
| 417 | (set (make-local-variable 'compilation-error-list) nil) | 417 | (set (make-local-variable 'compilation-error-list) nil) |
| 418 | (set (make-local-variable 'compilation-old-error-list) nil) | 418 | (set (make-local-variable 'compilation-old-error-list) nil) |
| 419 | (set (make-local-variable 'compilation-parsing-end) 1) | 419 | (set (make-local-variable 'compilation-parsing-end) 1) |
| @@ -474,7 +474,7 @@ See `compilation-mode'." | |||
| 474 | (insert " at " (substring (current-time-string) 0 19)) | 474 | (insert " at " (substring (current-time-string) 0 19)) |
| 475 | (forward-char 1) | 475 | (forward-char 1) |
| 476 | (setq mode-line-process | 476 | (setq mode-line-process |
| 477 | (concat ": " | 477 | (concat ":" |
| 478 | (symbol-name (process-status proc)))) | 478 | (symbol-name (process-status proc)))) |
| 479 | ;; Since the buffer and mode line will show that the | 479 | ;; Since the buffer and mode line will show that the |
| 480 | ;; process is dead, we can delete it now. Otherwise it | 480 | ;; process is dead, we can delete it now. Otherwise it |