(dired-insert-subdir): Pass switches to dired-build-subdir-alist.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e3ce330f8b038cbbb3dd444ecaba38c47538e1d8..85a8bedf9446ebf621b1c5f6978f259695b0c90a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,11 @@
+2001-09-21  Eli Zaretskii  <eliz@is.elta.co.il>
+
+       * dired.el (dired-build-subdir-alist): Accept optional arg
+       SWITCHES.
+
+       * dired-aux.el (dired-insert-subdir): Pass switches to
+       dired-build-subdir-alist.
+
 2001-09-21  Stephen Gildea  <gildea@stop.mail-abuse.org>
 
        * time-stamp.el (time-stamp-string-preprocess): Fix bug that

diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el
index 398f4652827e4fc609635286d68ce03d5fa8b3d7..5a01ebcc3e5e53ebce1c24df09abba73f88b2b79 100644 (file)
--- a/lisp/dired-aux.el
+++ b/lisp/dired-aux.el
@@ -1623,7 +1623,7 @@ This function takes some pains to conform to `ls -lR' output."
       (dired-insert-subdir-newpos dirname)) ; else compute new position
     (dired-insert-subdir-doupdate
      dirname elt (dired-insert-subdir-doinsert dirname switches))
-    (if switches-have-R (dired-build-subdir-alist))
+    (if switches-have-R (dired-build-subdir-alist switches))
     (dired-initial-position dirname)
     (save-excursion (dired-mark-remembered mark-alist))))