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 c454bf25f8d781046e273f2189d45d682f691608..f7e9b5e432db552f3905823e3334853153977eb5 100644 (file)
--- 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> "))
 \f
 ;;; Miscellaneous
 

diff --git a/v7/src/runtime/emacs.scm b/v7/src/runtime/emacs.scm
index b4e8dc1860269dd1ce47b99675f8ac5e48eb56e3..fea92c68cd0bcbc02e655d6a955fc1af02a0756c 100644 (file)
--- 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)