diff options
| author | Richard M. Stallman | 1994-04-24 08:16:18 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-04-24 08:16:18 +0000 |
| commit | 0b358e64b32eb171959b960ddec0bbc98f6a4502 (patch) | |
| tree | cbc70c3c335e4e9174c990f877b2a703733b0195 | |
| parent | 6657eedf6ba2fc753549f3cb276690889fb89188 (diff) | |
| download | emacs-0b358e64b32eb171959b960ddec0bbc98f6a4502.tar.gz emacs-0b358e64b32eb171959b960ddec0bbc98f6a4502.zip | |
(gud-mode, gud-sentinel):
Remove space after `:' in mode-line-process.
| -rw-r--r-- | lisp/gud.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/gud.el b/lisp/gud.el index 1734a95636e..aaf28966777 100644 --- a/lisp/gud.el +++ b/lisp/gud.el | |||
| @@ -870,7 +870,7 @@ comint mode, which see." | |||
| 870 | (comint-mode) | 870 | (comint-mode) |
| 871 | (setq major-mode 'gud-mode) | 871 | (setq major-mode 'gud-mode) |
| 872 | (setq mode-name "Debugger") | 872 | (setq mode-name "Debugger") |
| 873 | (setq mode-line-process '(": %s")) | 873 | (setq mode-line-process '(":%s")) |
| 874 | (use-local-map (copy-keymap comint-mode-map)) | 874 | (use-local-map (copy-keymap comint-mode-map)) |
| 875 | (define-key (current-local-map) "\C-c\C-l" 'gud-refresh) | 875 | (define-key (current-local-map) "\C-c\C-l" 'gud-refresh) |
| 876 | (make-local-variable 'gud-last-frame) | 876 | (make-local-variable 'gud-last-frame) |
| @@ -968,7 +968,7 @@ comint mode, which see." | |||
| 968 | (setq overlay-arrow-position nil) | 968 | (setq overlay-arrow-position nil) |
| 969 | ;; Fix the mode line. | 969 | ;; Fix the mode line. |
| 970 | (setq mode-line-process | 970 | (setq mode-line-process |
| 971 | (concat ": " | 971 | (concat ":" |
| 972 | (symbol-name (process-status proc)))) | 972 | (symbol-name (process-status proc)))) |
| 973 | (let* ((obuf (current-buffer))) | 973 | (let* ((obuf (current-buffer))) |
| 974 | ;; save-excursion isn't the right thing if | 974 | ;; save-excursion isn't the right thing if |