Read value of DIRED-LISTING-SWITCHES that is local to the dired

buffer being filled.

diff --git a/v7/src/edwin/dired.scm b/v7/src/edwin/dired.scm
index 73f2796a73228968bc20e9e93f192ca8d0547a8e..67d5fa20c80fdbec1bce65f7cc2d92d7f6a1ef37 100644 (file)
--- 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 0849703987f443226be17ffac8a23bcc729a0a06..e57d2111b90d489c862a08882cc36bb3122ce95c 100644 (file)
--- 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))))