Move comint-record-input from comint.scm to comhst.scm. comint.scm is

not loaded in the DOS/Windows version.

diff --git a/v7/src/edwin/comhst.scm b/v7/src/edwin/comhst.scm
index 30868e3a4a0172af0d640a18270bad116b33d0e6..2eba69834dcfae6db21c2b474fc38fc422d12d87 100644 (file)
--- 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 168f3ded4892bdd0412321e491320fdc5e5328ae..cdac4458759fefa9a003a345ee3c7616a3d0b4d3 100644 (file)
--- 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)))
 \f
 (define-variable-per-buffer comint-get-old-input
   "Procedure that submits old text in comint mode.