From 0fda83c2d590914983d70b276a2f9eaaf2bd916b Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 17 Feb 2004 04:59:54 +0000
Subject: [PATCH] Add line-ending support.
---
v7/src/edwin/process.scm | 18 +++++++++++++++---
1 file changed, 15 insertions(+), 3 deletions(-)
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)))
--
2.25.1