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 |