From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 9 Nov 1992 20:45:33 +0000 (+0000)
Subject: Fix two bugs in SAVE-EDITOR-FILES.
X-Git-Tag: 20090517-FFI~8788
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=86b6e6e6e9cdaa80702b01df2e6362feb09f95f1;p=mit-scheme.git

Fix two bugs in SAVE-EDITOR-FILES.
---

diff --git a/v7/src/edwin/debuge.scm b/v7/src/edwin/debuge.scm
index 5c56cb3f2..356003873 100644
--- a/v7/src/edwin/debuge.scm
+++ b/v7/src/edwin/debuge.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/debuge.scm,v 1.45 1992/04/04 13:07:06 cph Exp $
+;;;	$Id: debuge.scm,v 1.46 1992/11/09 20:45:33 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-92 Massachusetts Institute of Technology
 ;;;
@@ -60,7 +60,9 @@
 		       (and (y-or-n? "Save buffer "
 				     (buffer-name buffer)
 				     " (Y or N)? ")
-			    (prompt-for-expression "Filename")))
+			    ((access prompt-for-expression
+				     system-global-environment)
+			     "Filename")))
 		      ((integer? (pathname-version pathname))
 		       (pathname-new-version pathname 'NEWEST))
 		      (else
@@ -77,10 +79,13 @@
 		    (write-string filename)
 		    (write-string "'")
 		    (let ((region (buffer-unclipped-region buffer)))
-		      (group-write-to-file (region-group region)
-					   (region-start-index region)
-					   (region-end-index region)
-					   filename))
+		      (group-write-to-file
+		       (and *translate-file-data-on-output?*
+			    (pathname-newline-translation pathname))
+		       (region-group region)
+		       (region-start-index region)
+		       (region-end-index region)
+		       filename))
 		    (write-string " -- done")
 		    (set-buffer-pathname! buffer pathname)
 		    (set-buffer-truename! buffer (->truename pathname))