diff options
| author | Luc Teirlinck <teirllm@auburn.edu> | 2004-06-10 19:06:14 +0000 |
|---|---|---|
| committer | Luc Teirlinck <teirllm@auburn.edu> | 2004-06-10 19:06:14 +0000 |
| commit | 081e43973f868bb7d9542fa21540a225765c6052 (patch) | |
| tree | 2335e5e6394512d2e0be2aa1d325ffc897daf322 /lisp/dired-aux.el | |
| parent | d82baff9bd95b64b89e3a10072f292647f8b2b87 (diff) | |
| download | emacs-081e43973f868bb7d9542fa21540a225765c6052.tar.gz | |
(dired-insert-subdir): Do not store R switch in `dired-switches-alist'.
Diffstat (limited to 'lisp/dired-aux.el')
| -rw-r--r-- | lisp/dired-aux.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el index 7e96f1673ed..a58b62498ca 100644 --- a/lisp/dired-aux.el +++ b/lisp/dired-aux.el @@ -1812,10 +1812,10 @@ This function takes some pains to conform to `ls -lR' output." (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) |