Mercurial > emacs

diff lisp/dired-aux.el @ 56014:def58a71f49d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(dired-insert-subdir): Do not store R switch in `dired-switches-alist'.
author Luc Teirlinck <teirllm@auburn.edu>
date Thu, 10 Jun 2004 19:06:14 +0000
parents 7f35f020d8d8
children 1f13c1cdc0b1
line wrap: on
line diff
--- 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)