(max 0)
min rdir num subdirectoriesp file)
;; Recurse down directories.
- (setq subdirectoriesp (> (nth 1 (file-attributes dir)) 2))
+ (setq subdirectoriesp
+ ;; nth 1 of file-attributes always 1 on MS Windows :(
+ (/= (nth 1 (file-attributes (file-truename dir))) 2))
(dolist (rdir files)
(if (or (not subdirectoriesp)
(file-regular-p rdir))