From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 23 Dec 1993 04:44:57 +0000 (+0000)
Subject: (inferior-scheme-mode):
X-Git-Tag: emacs-19.34~10547
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9f370a90b55ba33eb074b873534c4e4015b3ad34;p=emacs.git

(inferior-scheme-mode):
Don't let `comint-prompt-regexp' match more than one line.
---

diff --git a/lisp/cmuscheme.el b/lisp/cmuscheme.el
index a4a98aac936..30510103b7b 100644
--- a/lisp/cmuscheme.el
+++ b/lisp/cmuscheme.el
@@ -180,7 +180,7 @@ to continue it."
   (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")