From 3ebc4869b31e9c8b197a8b3ba57f504bc8b33de7 Mon Sep 17 00:00:00 2001
From: "Guillermo J. Rozas" <edu/mit/csail/zurich/gjr>
Date: Sun, 22 Aug 1993 04:16:32 +0000
Subject: [PATCH] Move comint-record-input from comint.scm to comhst.scm. 
 comint.scm is not loaded in the DOS/Windows version.

---
 v7/src/edwin/comhst.scm | 11 ++++++++---
 v7/src/edwin/comint.scm |  9 ++-------
 2 files changed, 10 insertions(+), 10 deletions(-)

diff --git a/v7/src/edwin/comhst.scm b/v7/src/edwin/comhst.scm
index 30868e3a4..2eba69834 100644
--- a/v7/src/edwin/comhst.scm
+++ b/v7/src/edwin/comhst.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: comhst.scm,v 1.1 1992/09/23 23:03:31 jinx Exp $
+$Id: comhst.scm,v 1.2 1993/08/22 04:16:32 gjr Exp $
 
-Copyright (c) 1992 Massachusetts Institute of Technology
+Copyright (c) 1992-1993 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -120,4 +120,9 @@ license should have been included along with this file. |#
 		   (set-variable! comint-last-input-match string)
 		   ((ref-command comint-previous-input) (- index start)))
 		  (else
-		   (loop index)))))))))
\ No newline at end of file
+		   (loop index)))))))))
+
+(define (comint-record-input ring string)
+  (if (or (ring-empty? ring)
+	  (not (string=? string (ring-ref ring 0))))
+      (ring-push! ring string)))
\ No newline at end of file
diff --git a/v7/src/edwin/comint.scm b/v7/src/edwin/comint.scm
index 168f3ded4..cdac44587 100644
--- a/v7/src/edwin/comint.scm
+++ b/v7/src/edwin/comint.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: comint.scm,v 1.19 1993/08/02 02:50:40 cph Exp $
+$Id: comint.scm,v 1.20 1993/08/22 04:16:25 gjr Exp $
 
-Copyright (c) 1991-1992 Massachusetts Institute of Technology
+Copyright (c) 1991-1993 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -196,11 +196,6 @@ the input."
 	      (insert-newline point))
 	  (move-mark-to! mark point)
 	  (process-send-string process (string-append string terminator)))))))
-
-(define (comint-record-input ring string)
-  (if (or (ring-empty? ring)
-	  (not (string=? string (ring-ref ring 0))))
-      (ring-push! ring string)))
 
 (define-variable-per-buffer comint-get-old-input
   "Procedure that submits old text in comint mode.
-- 
2.25.1