From: David Kastrup <dak@gnu.org>
Date: Fri, 1 Jun 2007 05:01:56 +0000 (+0000)
Subject: (dired-recursive-deletes, dired-recursive-copies):
X-Git-Tag: emacs-pretest-23.0.90~12520
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=773933d371315e101ad9d9ff5388df52bc3efeb3;p=emacs.git

(dired-recursive-deletes, dired-recursive-copies):
Change default to `top'.
---

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.