From 0b358e64b32eb171959b960ddec0bbc98f6a4502 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 24 Apr 1994 08:16:18 +0000 Subject: [PATCH] (gud-mode, gud-sentinel): Remove space after `:' in mode-line-process. --- lisp/gud.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/gud.el b/lisp/gud.el index 1734a95636..aaf2896677 100644 --- a/lisp/gud.el +++ b/lisp/gud.el @@ -870,7 +870,7 @@ comint mode, which see." (comint-mode) (setq major-mode 'gud-mode) (setq mode-name "Debugger") - (setq mode-line-process '(": %s")) + (setq mode-line-process '(":%s")) (use-local-map (copy-keymap comint-mode-map)) (define-key (current-local-map) "\C-c\C-l" 'gud-refresh) (make-local-variable 'gud-last-frame) @@ -968,7 +968,7 @@ comint mode, which see." (setq overlay-arrow-position nil) ;; Fix the mode line. (setq mode-line-process - (concat ": " + (concat ":" (symbol-name (process-status proc)))) (let* ((obuf (current-buffer))) ;; save-excursion isn't the right thing if -- 2.39.2