From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 15 Aug 1994 19:15:19 +0000 (+0000)
Subject: Don't write a space after a command prompt.  The PROMPT-FOR-COMMAND-
X-Git-Tag: 20090517-FFI~7134
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=1aedf3a273e9d1026c20241d3aa1a7220240b3ab;p=mit-scheme.git

Don't write a space after a command prompt.  The PROMPT-FOR-COMMAND-
procedures will take care of this for us.
---

diff --git a/etc/xscheme.el b/etc/xscheme.el
index da7677f81..6e7783d8e 100644
--- a/etc/xscheme.el
+++ b/etc/xscheme.el
@@ -20,7 +20,7 @@
 ;;; Requires C-Scheme release 5 or later
 ;;; Changes to Control-G handler require runtime version 13.85 or later
 
-;;; $Id: xscheme.el,v 1.35 1994/03/24 18:04:53 cph Exp $
+;;; $Id: xscheme.el,v 1.36 1994/08/15 19:15:19 cph Exp $
 
 (require 'scheme)
 
@@ -1140,12 +1140,8 @@ the remaining input.")
 (defun xscheme-coerce-prompt (string)
   (if (string-match "^[0-9]+ \\[[^]]+\\] " string)
       (let ((end (match-end 0)))
-	(let ((prompt (substring string end)))
-	  (xscheme-process-filter-output prompt)
-	  (if (and (> (length prompt) 0)
-		   (not (= (aref prompt (- (length prompt) 1)) ? )))
-	      (xscheme-process-filter-output " "))
-	  (substring string 0 (- end 1))))
+	(xscheme-process-filter-output (substring string end))
+	(substring string 0 (- end 1)))
       string))
 
 (defun xscheme-cd (directory-string)