From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 3 Jan 1997 04:40:03 +0000 (+0000)
Subject: Change output procedures to ignore translate-file-data-on-output in
X-Git-Tag: 20090517-FFI~5278
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=3921bd8d8e9856d1493d1a5926824e9f5058ac70;p=mit-scheme.git

Change output procedures to ignore translate-file-data-on-output in
some circumstances.  This is necessary because RMAIL files want this
variable set to #F, but M-x write-region should ignore the variable
binding in that case and do translation anyway.
---

diff --git a/v7/src/edwin/fileio.scm b/v7/src/edwin/fileio.scm
index 234346618..600690f4c 100644
--- a/v7/src/edwin/fileio.scm
+++ b/v7/src/edwin/fileio.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: fileio.scm,v 1.140 1997/01/03 04:06:32 cph Exp $
+;;;	$Id: fileio.scm,v 1.141 1997/01/03 04:40:03 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-96 Massachusetts Institute of Technology
 ;;;
@@ -576,7 +576,7 @@ Otherwise, a message is written both before and after long file writes."
 	  (get-pathname-or-alternate (region-group region) pathname #t))
 	 (translate?
 	  (if (eq? 'DEFAULT translate?)
-	      (ref-variable translate-file-data-on-output buffer)
+	      (ref-variable translate-file-data-on-output group)
 	      translate?))
 	 (translation (and translate? (pathname-newline-translation pathname)))
 	 (filename (->namestring pathname))