2379 |
(setq files |
(setq files |
2380 |
(directory-files file t dired-re-no-dot)) ; Not empty. |
(directory-files file t dired-re-no-dot)) ; Not empty. |
2381 |
(or (eq recursive 'always) |
(or (eq recursive 'always) |
2382 |
(yes-or-no-p (format "Recursive delete of %s " |
(yes-or-no-p (format "Recursive delete of %s? " |
2383 |
(dired-make-relative file))))) |
(dired-make-relative file))))) |
2384 |
(if (eq recursive 'top) (setq recursive 'always)) ; Don't ask again. |
(if (eq recursive 'top) (setq recursive 'always)) ; Don't ask again. |
2385 |
(while files ; Recursively delete (possibly asking). |
(while files ; Recursively delete (possibly asking). |