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

Diff of /emacs/lisp/dired.el

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

revision 1.327 by mituharu, Wed Aug 31 08:33:25 2005 UTC revision 1.328 by rfrancoise, Sat Sep 24 23:26:28 2005 UTC
# Line 2379  Anything else, ask for each sub-director Line 2379  Anything else, ask for each sub-director
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).

Legend:
Removed from v.1.327  
changed lines
  Added in v.1.328

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