# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 756621897 0
# Node ID 092d5d60f803e58a42f98468116f633a3703f953
# Parent  8e6ba05e1271fb66a9ada17b36b1b82257ca93a2
(inferior-scheme-mode):
Don't let `comint-prompt-regexp' match more than one line.

diff -r 8e6ba05e1271 -r 092d5d60f803 lisp/cmuscheme.el
--- a/lisp/cmuscheme.el	Thu Dec 23 04:43:53 1993 +0000
+++ b/lisp/cmuscheme.el	Thu Dec 23 04:44:57 1993 +0000
@@ -180,7 +180,7 @@
   (interactive)
   (comint-mode)
   ;; Customise in inferior-scheme-mode-hook
-  (setq comint-prompt-regexp "^[^>]*>+ *") ; OK for cscheme, oaklisp, T,...
+  (setq comint-prompt-regexp "^[^>\n]*>+ *") ; OK for cscheme, oaklisp, T,...
   (scheme-mode-variables)
   (setq major-mode 'inferior-scheme-mode)
   (setq mode-name "Inferior Scheme")