Mercurial > emacs
comparison lisp/cmuscheme.el @ 7070:d3334311fc58
(inferior-scheme-mode):
Remove space after `:' in mode-line-process.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Sun, 24 Apr 1994 08:14:18 +0000 |
parents | 599aa761e6be |
children | cc7cd83ccf3f |
comparison
equal
deleted
inserted
replaced
7069:b5d15b763ef0 | 7070:d3334311fc58 |
---|---|
182 ;; Customise in inferior-scheme-mode-hook | 182 ;; Customise in inferior-scheme-mode-hook |
183 (setq comint-prompt-regexp "^[^>\n]*>+ *") ; OK for cscheme, oaklisp, T,... | 183 (setq comint-prompt-regexp "^[^>\n]*>+ *") ; OK for cscheme, oaklisp, T,... |
184 (scheme-mode-variables) | 184 (scheme-mode-variables) |
185 (setq major-mode 'inferior-scheme-mode) | 185 (setq major-mode 'inferior-scheme-mode) |
186 (setq mode-name "Inferior Scheme") | 186 (setq mode-name "Inferior Scheme") |
187 (setq mode-line-process '(": %s")) | 187 (setq mode-line-process '(":%s")) |
188 (use-local-map inferior-scheme-mode-map) | 188 (use-local-map inferior-scheme-mode-map) |
189 (setq comint-input-filter (function scheme-input-filter)) | 189 (setq comint-input-filter (function scheme-input-filter)) |
190 (setq comint-get-old-input (function scheme-get-old-input)) | 190 (setq comint-get-old-input (function scheme-get-old-input)) |
191 (run-hooks 'inferior-scheme-mode-hook)) | 191 (run-hooks 'inferior-scheme-mode-hook)) |
192 | 192 |