From: Luc Teirlinck <teirllm@auburn.edu>
Date: Thu, 10 Jun 2004 19:10:09 +0000 (+0000)
Subject: (dired-insert-old-subdirs): Adapt to fact that the R switch is no
X-Git-Tag: ttn-vms-21-2-B4~5846
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f817c0fbc4b197cf31b07db511fdfac471f9467d;p=emacs.git

(dired-insert-old-subdirs): Adapt to fact that the R switch is no
longer stored in `dired-switches-alist'.
---

diff --git a/lisp/dired.el b/lisp/dired.el
index f206b03cd26..3d3fd34b5ac 100644
--- a/lisp/dired.el
+++ b/lisp/dired.el
@@ -970,14 +970,7 @@ Do so according to the former subdir alist OLD-SUBDIR-ALIST."
 	  (condition-case ()
 	      (progn
 		(dired-uncache dir)
-		(dired-insert-subdir dir)
-		(let ((switches (cdr (assoc-string dir dired-switches-alist))))
-		  (and switches
-		       (string-match "R" switches)
-		       (dolist (cur-ass (copy-sequence old-subdir-alist))
-			 (when (dired-in-this-tree (car cur-ass) dir)
-			   (setq old-subdir-alist
-				 (delete cur-ass old-subdir-alist)))))))
+		(dired-insert-subdir dir))
 	    (error nil))))))
 
 (defun dired-uncache (dir)