# HG changeset patch
# User Luc Teirlinck <teirllm@auburn.edu>
# Date 1086894374 0
# Node ID def58a71f49d7362af7751048a58c6e616ea0843
# Parent  9b3dfd3380b8d0fce98af758c225099a43ec07a7
(dired-insert-subdir): Do not store R switch in `dired-switches-alist'.

diff -r 9b3dfd3380b8 -r def58a71f49d lisp/dired-aux.el
--- a/lisp/dired-aux.el	Thu Jun 10 08:41:13 2004 +0000
+++ b/lisp/dired-aux.el	Thu Jun 10 19:06:14 2004 +0000
@@ -1812,10 +1812,10 @@
 	(push (cons dirname switches) dired-switches-alist)))
     (when switches-have-R
       (dired-build-subdir-alist switches)
+      (setq switches (dired-replace-in-string "R" "" switches))
       (dolist (cur-ass dired-subdir-alist)
 	(let ((cur-dir (car cur-ass)))
 	  (and (dired-in-this-tree cur-dir dirname)
-	       (not (string= cur-dir dirname))
 	       (let ((cur-cons (assoc-string cur-dir dired-switches-alist)))
 		 (if cur-cons
 		     (setcdr cur-cons switches)