From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 18 Oct 1993 22:51:14 +0000 (+0000)
Subject: Don't do STRING-TRIM on PROMPT-FOR-COMMAND- strings.
X-Git-Tag: 20090517-FFI~7733
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=ee1b200f3d8719066762f9a420d17d6d097f9920;p=mit-scheme.git

Don't do STRING-TRIM on PROMPT-FOR-COMMAND- strings.
---

diff --git a/v7/src/edwin/intmod.scm b/v7/src/edwin/intmod.scm
index c454bf25f..f7e9b5e43 100644
--- a/v7/src/edwin/intmod.scm
+++ b/v7/src/edwin/intmod.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: intmod.scm,v 1.71 1993/10/16 11:07:21 cph Exp $
+;;;	$Id: intmod.scm,v 1.72 1993/10/18 22:51:14 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-93 Massachusetts Institute of Technology
 ;;;
@@ -913,16 +913,21 @@ If this is an error, the debugger examines the error condition."
 
 (define (parse-command-prompt port prompt)
   (standard-prompt-spacing port)
-  (let ((prompt (string-trim prompt)))
-    (if (not (and suppress-standard-prompts?
-		  (or (string=? prompt user-initial-prompt)
-		      (member prompt standard-prompts))))
-	(begin
-	  (write-string prompt port)
-	  (write-char #\space port)))))
+  (if (not (and suppress-standard-prompts?
+		(or (string=? prompt user-initial-prompt)
+		    (member prompt standard-prompts))))
+      (begin
+	(write-string prompt port)
+	(write-char #\space port))))
 
 (define suppress-standard-prompts? #t)
-(define standard-prompts '("]=>" "error>" "break>" "bkpt>" "debug>" "where>"))
+(define standard-prompts
+  '("]=> "
+    "error> "
+    "break> "
+    "bkpt> "
+    "debug> "
+    "where> "))
 
 ;;; Miscellaneous
 
diff --git a/v7/src/runtime/emacs.scm b/v7/src/runtime/emacs.scm
index b4e8dc186..fea92c68c 100644
--- a/v7/src/runtime/emacs.scm
+++ b/v7/src/runtime/emacs.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: emacs.scm,v 14.17 1993/10/16 10:11:04 cph Exp $
+$Id: emacs.scm,v 14.18 1993/10/18 22:50:03 cph Exp $
 
 Copyright (c) 1988-93 Massachusetts Institute of Technology
 
@@ -54,20 +54,19 @@ MIT in each case. |#
   (transmit-signal-with-argument
    port
    #\p
-   (let ((prefix (number->string level))
-	 (prompt (string-trim prompt)))
+   (let ((prefix (number->string level)))
      (let ((entry (assoc prompt cmdl-prompt-alist)))
        (if entry
 	   (string-append prefix " " (cadr entry))
 	   (string-append prefix " [Evaluator] " prompt))))))
 
 (define cmdl-prompt-alist
-  '(("]=>" "[Evaluator]")
-    ("error>" "[Evaluator]")
-    ("break>" "[Evaluator]")
-    ("bkpt>" "[Evaluator]")
-    ("debug>" "[Debug]")
-    ("where>" "[Where]")))
+  '(("]=> " "[Evaluator]")
+    ("error> " "[Evaluator]")
+    ("break> " "[Evaluator]")
+    ("bkpt> " "[Evaluator]")
+    ("debug> " "[Debug]")
+    ("where> " "[Where]")))
 
 (define (emacs/prompt-for-expression port prompt)
   (transmit-signal-with-argument port #\i prompt)