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

Change default to `top'.

2 files changed, 7 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ecb858b4617..baf1400232d 100644
--- 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 7f6e919a109..7dafd47c6e0 100644
--- a/lisp/dired.el
+++ b/lisp/dired.el
@@ -2362,7 +2362,7 @@ Optional argument means return a file name relative to `default-directory'."
 
 ;; 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.