1147 |
(if (and recursive |
(if (and recursive |
1148 |
(eq t (car attrs)) |
(eq t (car attrs)) |
1149 |
(or (eq recursive 'always) |
(or (eq recursive 'always) |
1150 |
(yes-or-no-p (format "Recursive copies of %s " from)))) |
(yes-or-no-p (format "Recursive copies of %s? " from)))) |
1151 |
;; This is a directory. |
;; This is a directory. |
1152 |
(let ((files (directory-files from nil dired-re-no-dot))) |
(let ((files (directory-files from nil dired-re-no-dot))) |
1153 |
(if (eq recursive 'top) (setq recursive 'always)) ; Don't ask any more. |
(if (eq recursive 'top) (setq recursive 'always)) ; Don't ask any more. |