From d6025966bb276cd73233c4ac1f972133d1ebf2c6 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 21 Feb 1993 05:55:02 +0000
Subject: [PATCH] Read value of DIRED-LISTING-SWITCHES that is local to the
 dired buffer being filled.

---
 v7/src/edwin/dired.scm | 6 +++---
 v7/src/edwin/unix.scm  | 6 +++---
 2 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/v7/src/edwin/dired.scm b/v7/src/edwin/dired.scm
index 73f2796a7..67d5fa20c 100644
--- a/v7/src/edwin/dired.scm
+++ b/v7/src/edwin/dired.scm
@@ -1,8 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: dired.scm,v 1.135 1992/11/25 00:22:36 cph Exp $
+;;;	$Id: dired.scm,v 1.136 1993/02/21 05:54:25 cph Exp $
 ;;;
-;;;	Copyright (c) 1986, 1989-1992 Massachusetts Institute of Technology
+;;;	Copyright (c) 1986, 1989-93 Massachusetts Institute of Technology
 ;;;
 ;;;	This material was developed by the Scheme project at the
 ;;;	Massachusetts Institute of Technology, Department of
@@ -195,7 +195,7 @@ Type `h' after entering dired for more info."
   (temporary-message
    (string-append "Reading directory " (->namestring pathname) "..."))
   (read-directory pathname
-		  (ref-variable dired-listing-switches)
+		  (ref-variable dired-listing-switches buffer)
 		  (buffer-point buffer))
   (append-message "done")
   (let ((point (mark-left-inserting-copy (buffer-point buffer)))
diff --git a/v7/src/edwin/unix.scm b/v7/src/edwin/unix.scm
index 084970398..e57d2111b 100644
--- a/v7/src/edwin/unix.scm
+++ b/v7/src/edwin/unix.scm
@@ -1,8 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: unix.scm,v 1.31 1992/12/03 21:51:34 arthur Exp $
+;;;	$Id: unix.scm,v 1.32 1993/02/21 05:55:02 cph Exp $
 ;;;
-;;;	Copyright (c) 1989-1992 Massachusetts Institute of Technology
+;;;	Copyright (c) 1989-93 Massachusetts Institute of Technology
 ;;;
 ;;;	This material was developed by the Scheme project at the
 ;;;	Massachusetts Institute of Technology, Department of
@@ -544,7 +544,7 @@ CANNOT contain the 'F' option."
     (run-synchronous-process false lstart directory false
 			     (find-program "ls" directory)
 			     "-d"
-			     (ref-variable dired-listing-switches)
+			     (ref-variable dired-listing-switches lstart)
 			     (->namestring pathname))
     (insert-string "  " start)
     (let ((start (mark-right-inserting (dired-filename-start start))))
-- 
2.25.1