1812 |
(push (cons dirname switches) dired-switches-alist))) |
(push (cons dirname switches) dired-switches-alist))) |
1813 |
(when switches-have-R |
(when switches-have-R |
1814 |
(dired-build-subdir-alist switches) |
(dired-build-subdir-alist switches) |
1815 |
|
(setq switches (dired-replace-in-string "R" "" switches)) |
1816 |
(dolist (cur-ass dired-subdir-alist) |
(dolist (cur-ass dired-subdir-alist) |
1817 |
(let ((cur-dir (car cur-ass))) |
(let ((cur-dir (car cur-ass))) |
1818 |
(and (dired-in-this-tree cur-dir dirname) |
(and (dired-in-this-tree cur-dir dirname) |
|
(not (string= cur-dir dirname)) |
|
1819 |
(let ((cur-cons (assoc-string cur-dir dired-switches-alist))) |
(let ((cur-cons (assoc-string cur-dir dired-switches-alist))) |
1820 |
(if cur-cons |
(if cur-cons |
1821 |
(setcdr cur-cons switches) |
(setcdr cur-cons switches) |