Mercurial > emacs

comparison lisp/gud.el @ 7074:b9d86b8e3ca1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(gud-mode, gud-sentinel): Remove space after `:' in mode-line-process.
author Richard M. Stallman <rms@gnu.org>
date Sun, 24 Apr 1994 08:16:18 +0000
parents 9fb9491fb9a4
children d53c76129763
comparison
equal deleted inserted replaced
7073:c662b47cda3f 7074:b9d86b8e3ca1
868 comint mode, which see." 868 comint mode, which see."
869 (interactive) 869 (interactive)
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)
877 (setq gud-last-frame nil) 877 (setq gud-last-frame nil)
878 (make-local-variable 'comint-prompt-regexp) 878 (make-local-variable 'comint-prompt-regexp)
966 ((memq (process-status proc) '(signal exit)) 966 ((memq (process-status proc) '(signal exit))
967 ;; Stop displaying an arrow in a source file. 967 ;; Stop displaying an arrow in a source file.
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
975 ;; process-buffer is current-buffer 975 ;; process-buffer is current-buffer
976 (unwind-protect 976 (unwind-protect