From 95471ee642fd2889641fe1cae408d0acd284f1ab Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 24 Apr 1996 02:30:14 +0000
Subject: [PATCH] Change GROUP-INSERT-FILE! to accept an additional argument,
 which specifies the newline translation to be used for the insertion.  This
 allows the compressed-file reading code to specify that the translation being
 used is that appropriate for the file being expanded.  Formerly, the wrong
 translation was sometimes used because the compressed file is expanded into a
 temporary file, which can reside on a file system with a different
 translation, and the translation appropriate for the temporary was used.

---
 v7/src/edwin/fileio.scm | 19 ++++++++++---------
 v7/src/edwin/os2.scm    |  5 +++--
 v7/src/edwin/unix.scm   |  5 +++--
 3 files changed, 16 insertions(+), 13 deletions(-)

diff --git a/v7/src/edwin/fileio.scm b/v7/src/edwin/fileio.scm
index 24ab2128e..945bf78c0 100644
--- a/v7/src/edwin/fileio.scm
+++ b/v7/src/edwin/fileio.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: fileio.scm,v 1.134 1996/04/24 02:19:48 cph Exp $
+;;;	$Id: fileio.scm,v 1.135 1996/04/24 02:30:01 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-96 Massachusetts Institute of Technology
 ;;;
@@ -163,9 +163,11 @@ of the predicates is satisfied, the file is written in the usual way."
 	(method truename mark visit?)
 	(let ((do-it
 	       (lambda ()
-		 (group-insert-file! (mark-group mark)
-				     (mark-index mark)
-				     truename))))
+		 (group-insert-file!
+		  (mark-group mark)
+		  (mark-index mark)
+		  truename
+		  (pathname-newline-translation truename)))))
 	  (if (ref-variable read-file-message mark)
 	      (let ((msg
 		     (string-append "Reading file \""
@@ -177,15 +179,14 @@ of the predicates is satisfied, the file is written in the usual way."
 		  value))
 	      (do-it))))))
 
-(define (group-insert-file! group index truename)
+(define (group-insert-file! group index truename translation)
   (let ((filename (->namestring truename)))
     (let ((channel (file-open-input-channel filename)))
       (let ((length (channel-file-length channel))
 	    (buffer
-	     (and (ref-variable translate-file-data-on-input group)
-		  (let ((translation (pathname-newline-translation truename)))
-		    (and translation
-			 (make-input-buffer channel 4096 translation))))))
+	     (and translation
+		  (ref-variable translate-file-data-on-input group)
+		  (make-input-buffer channel 4096 translation))))
 	(bind-condition-handler (list condition-type:allocation-failure)
 	    (lambda (condition)
 	      condition
diff --git a/v7/src/edwin/os2.scm b/v7/src/edwin/os2.scm
index f0d751574..d1b350f78 100644
--- a/v7/src/edwin/os2.scm
+++ b/v7/src/edwin/os2.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: os2.scm,v 1.27 1995/12/19 18:18:51 cph Exp $
+;;;	$Id: os2.scm,v 1.28 1996/04/24 02:30:14 cph Exp $
 ;;;
 ;;;	Copyright (c) 1994-95 Massachusetts Institute of Technology
 ;;;
@@ -322,7 +322,8 @@ filename suffix \".gz\"."
 				      (list pathname mark)))
 	    (group-insert-file! (mark-group mark)
 				(mark-index mark)
-				temporary)))))
+				temporary
+				(pathname-newline-translation pathname))))))
     (append-message "done")
     value))
 
diff --git a/v7/src/edwin/unix.scm b/v7/src/edwin/unix.scm
index a1db764ff..229610907 100644
--- a/v7/src/edwin/unix.scm
+++ b/v7/src/edwin/unix.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: unix.scm,v 1.66 1996/04/24 02:18:04 cph Exp $
+;;;	$Id: unix.scm,v 1.67 1996/04/24 02:29:50 cph Exp $
 ;;;
 ;;;	Copyright (c) 1989-96 Massachusetts Institute of Technology
 ;;;
@@ -467,7 +467,8 @@ of the filename suffixes \".gz\" or \".Z\"."
 				      (list pathname mark)))
 	    (group-insert-file! (mark-group mark)
 				(mark-index mark)
-				temporary)))))
+				temporary
+				(pathname-newline-translation pathname))))))
     (append-message "done")
     value))
 
-- 
2.25.1