# HG changeset patch
# User David Kastrup <dak@gnu.org>
# Date 1180674116 0
# Node ID e0737dd47e022f56d58b8ffee2d254e0a91fdad2
# Parent  721bf3ce5d39a46c5dce8dd690b37b7398231dc7
(dired-recursive-deletes, dired-recursive-copies):
Change default to `top'.

diff -r 721bf3ce5d39 -r e0737dd47e02 lisp/ChangeLog
--- a/lisp/ChangeLog	Fri Jun 01 04:00:27 2007 +0000
+++ b/lisp/ChangeLog	Fri Jun 01 05:01:56 2007 +0000
@@ -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 -r 721bf3ce5d39 -r e0737dd47e02 lisp/dired.el
--- a/lisp/dired.el	Fri Jun 01 04:00:27 2007 +0000
+++ b/lisp/dired.el	Fri Jun 01 05:01:56 2007 +0000
@@ -2362,7 +2362,7 @@
 
 ;; 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 @@
 
 ;;;;  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.