From 2a1bfa3f6db75db4b63b94008a43fd928e33d1f0 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 18 May 1991 03:01:49 +0000
Subject: [PATCH] Improve write-strings-densely.  Eliminate several unused
 procedures.

---
 v7/src/edwin/dired.scm | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/v7/src/edwin/dired.scm b/v7/src/edwin/dired.scm
index 08d4bd9da..6aaf3a12c 100644
--- a/v7/src/edwin/dired.scm
+++ b/v7/src/edwin/dired.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/dired.scm,v 1.110 1991/05/10 04:53:29 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/dired.scm,v 1.111 1991/05/18 03:01:49 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-91 Massachusetts Institute of Technology
 ;;;
@@ -469,12 +469,12 @@ CANNOT contain the 'F' option."
   (let ((filenames (dired-killable-filenames)))
     (if (not (null? filenames))
 	(let ((buffer (temporary-buffer " *Deletions*")))
-	  (with-output-to-mark (buffer-point buffer)
-	    (lambda ()
-	      (write-strings-densely
-	       (map (lambda (filename)
-		      (pathname-name-string (car filename)))
-		    filenames))))
+	  (write-strings-densely
+	   (map (lambda (filename)
+		  (pathname-name-string (car filename)))
+		filenames)
+	   (mark->output-port (buffer-point buffer))
+	   (window-x-size (current-window)))
 	  (set-buffer-point! buffer (buffer-start buffer))
 	  (buffer-not-modified! buffer)
 	  (set-buffer-read-only! buffer)
-- 
2.25.1