From 3921bd8d8e9856d1493d1a5926824e9f5058ac70 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Fri, 3 Jan 1997 04:40:03 +0000 Subject: [PATCH] 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. --- v7/src/edwin/fileio.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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)) -- 2.25.1