From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 12 Aug 1988 02:41:22 +0000 (+0000)
Subject: Guarantee that the `cd' requested by the Scheme process happens in the
X-Git-Tag: 20090517-FFI~12616
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=4d5ef19d6328e98986bfd06d956126e1602ba8c5;p=mit-scheme.git

Guarantee that the `cd' requested by the Scheme process happens in the
Scheme process buffer.
---

diff --git a/etc/xscheme.el b/etc/xscheme.el
index 206cad062..dc8a8a15b 100644
--- a/etc/xscheme.el
+++ b/etc/xscheme.el
@@ -21,7 +21,7 @@
 ;;; Requires C-Scheme release 5 or later
 ;;; Changes to Control-G handler require runtime version 13.85 or later
 
-;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/etc/xscheme.el,v 1.18 1988/06/07 16:43:10 cph Exp $
+;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/etc/xscheme.el,v 1.19 1988/08/12 02:41:22 cph Exp $
 
 (require 'scheme)
 
@@ -734,7 +734,7 @@ When called, the current buffer will be the Scheme process-buffer.")
 	xscheme-process-filter:simple-action)
     (?v xscheme-write-value
 	xscheme-process-filter:string-action)
-    (?w cd
+    (?w xscheme-cd
 	xscheme-process-filter:string-action)
     (?z xscheme-display-process-buffer
 	xscheme-process-filter:simple-action)
@@ -860,6 +860,11 @@ the remaining input.")
     ("[Visiting environment]" . "[Evaluator]")
     ("[Environment Inspector]" . "[Where]"))
   "An alist which maps the Scheme command interpreter type to a print string.")
+
+(defun xscheme-cd (directory-string)
+  (save-excursion
+    (set-buffer (xscheme-process-buffer))
+    (cd directory-string)))
 
 (defun xscheme-prompt-for-confirmation (prompt-string)
   (xscheme-send-char (if (y-or-n-p prompt-string) ?y ?n)))