/[emacs]/emacs/lisp/dired-aux.el
ViewVC logotype

Diff of /emacs/lisp/dired-aux.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.122 by teirllm, Wed Jun 9 01:04:28 2004 UTC revision 1.123 by teirllm, Thu Jun 10 19:06:14 2004 UTC
# Line 1812  This function takes some pains to confor Line 1812  This function takes some pains to confor
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)

Legend:
Removed from v.1.122  
changed lines
  Added in v.1.123

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26