(dired-recursive-deletes, dired-recursive-copies):

Change default to `top'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ecb858b4617ce7bbce7b66b244ea86777015003f..baf1400232d0443ae5935d65274358eb2a1bee2c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2007-06-01  David Kastrup  <dak@gnu.org>
+
+       * dired.el (dired-recursive-deletes, dired-recursive-copies):
+       Change default to `top'.
+
 2007-05-31  Richard Stallman  <rms@gnu.org>
 
        * dired.el (dired-do-flagged-delete, dired-do-delete): Doc fix.

diff --git a/lisp/dired.el b/lisp/dired.el
index 7f6e919a1096115e7669797455ec4a6c2e64b8a3..7dafd47c6e058072bbf1e408def017b8a6081be5 100644 (file)
--- a/lisp/dired.el
+++ b/lisp/dired.el
@@ -2362,7 +2362,7 @@ Optional argument means return a file name relative to `default-directory'."
 \f
 ;; Deleting files
 
-(defcustom dired-recursive-deletes nil ; Default only delete empty directories.
+(defcustom dired-recursive-deletes 'top ; Default only delete empty directories.
   "*Decide whether recursive deletes are allowed.
 A value of nil means no recursive deletes.
 `always' means delete recursively without asking.  This is DANGEROUS!
@@ -3210,7 +3210,7 @@ To be called first in body of `dired-sort-other', etc."
 
 ;;;;  Drag and drop support
 
-(defcustom dired-recursive-copies nil
+(defcustom dired-recursive-copies 'top
   "*Decide whether recursive copies are allowed.
 A value of nil means no recursive copies.
 `always' means copy recursively without asking.