Mercurial > emacs
comparison lisp/cmuscheme.el @ 5304:092d5d60f803
(inferior-scheme-mode):
Don't let `comint-prompt-regexp' match more than one line.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 23 Dec 1993 04:44:57 +0000 |
| parents | 507f64624555 |
| children | a093cbbdf14d |
comparison
equal
deleted
inserted
replaced
| 5303:8e6ba05e1271 | 5304:092d5d60f803 |
|---|---|
| 178 If you accidentally suspend your process, use \\[comint-continue-subjob] | 178 If you accidentally suspend your process, use \\[comint-continue-subjob] |
| 179 to continue it." | 179 to continue it." |
| 180 (interactive) | 180 (interactive) |
| 181 (comint-mode) | 181 (comint-mode) |
| 182 ;; Customise in inferior-scheme-mode-hook | 182 ;; Customise in inferior-scheme-mode-hook |
| 183 (setq comint-prompt-regexp "^[^>]*>+ *") ; 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) |