From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 17 Feb 2004 04:59:54 +0000 (+0000)
Subject: Add line-ending support.
X-Git-Tag: 20090517-FFI~1691
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=0fda83c2d590914983d70b276a2f9eaaf2bd916b;p=mit-scheme.git

Add line-ending support.
---

diff --git a/v7/src/edwin/process.scm b/v7/src/edwin/process.scm
index 52d120729..5d057800d 100644
--- a/v7/src/edwin/process.scm
+++ b/v7/src/edwin/process.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: process.scm,v 1.66 2004/02/16 05:43:52 cph Exp $
+$Id: process.scm,v 1.67 2004/02/17 04:59:54 cph Exp $
 
 Copyright 1991,1992,1993,1996,1997,1999 Massachusetts Institute of Technology
 Copyright 2000,2001,2002,2003,2004 Massachusetts Institute of Technology
@@ -586,10 +586,22 @@ after the listing is made.)"
 		'INPUT input-port
 		'OUTPUT output-port
 		'REDISPLAY-HOOK
-		(and (if (pair? output-mark) (cdr output-mark) #f)
+		(and (pair? output-mark)
+		     (cdr output-mark)
 		     (lambda () (update-screens! '(IGNORE-INPUT))))
 		'WORKING-DIRECTORY directory
-		'USE-PTY? pty?)))))
+		'USE-PTY? pty?
+		'LINE-ENDING
+		(if (cond (input-region
+			   (ref-variable translate-file-data-on-output
+					 (region-start input-region)))
+			  (output-mark
+			   (ref-variable translate-file-data-on-input
+					 output-mark))
+			  (else #t))
+		    #f
+		    'NEWLINE)
+		)))))
       (if input-port (close-port input-port))
       (if output-port (close-port output-port))
       result)))