From 773933d371315e101ad9d9ff5388df52bc3efeb3 Mon Sep 17 00:00:00 2001 From: David Kastrup Date: Fri, 1 Jun 2007 05:01:56 +0000 Subject: [PATCH] (dired-recursive-deletes, dired-recursive-copies): Change default to `top'. --- lisp/ChangeLog | 5 +++++ lisp/dired.el | 4 ++-- 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 + + * dired.el (dired-recursive-deletes, dired-recursive-copies): + Change default to `top'. + 2007-05-31 Richard Stallman * 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. -- 2.39.2