(dired-do-delete, dired-do-flagged-delete): Doc fixes.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b8f8423ea74f8a64fb333b12e72c28250d6d6f05..387f04058bfb951096fff2f2ac0e747c5f87d92d 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2007-05-31  Richard Stallman  <rms@gnu.org>
+
+       * dired.el (dired-do-delete, dired-do-flagged-delete): Doc fixes.
+
 2007-05-29  Martin Rudalics  <rudalics@gmx.at>
 
        * textmodes/table.el (table--point-entered-cell-function)

diff --git a/lisp/dired.el b/lisp/dired.el
index 4244954d467443a77e0d1e13292163998cadf5df..7f6e919a1096115e7669797455ec4a6c2e64b8a3 100644 (file)
--- a/lisp/dired.el
+++ b/lisp/dired.el
@@ -2410,7 +2410,9 @@ Anything else, ask for each sub-directory."
 (defun dired-do-flagged-delete (&optional nomessage)
   "In Dired, delete the files flagged for deletion.
 If NOMESSAGE is non-nil, we don't display any message
-if there are no flagged files."
+if there are no flagged files.
+`dired-recursive-deletes' controls whether 
+deletion of non-empty directories is allowed."
   (interactive)
   (let* ((dired-marker-char dired-del-marker)
         (regexp (dired-marker-regexp))
@@ -2426,7 +2428,9 @@ if there are no flagged files."
          (message "(No deletions requested)")))))
 
 (defun dired-do-delete (&optional arg)
-  "Delete all marked (or next ARG) files."
+  "Delete all marked (or next ARG) files.
+`dired-recursive-deletes' controls whether 
+deletion of non-empty directories is allowed."
   ;; This is more consistent with the file marking feature than
   ;; dired-do-flagged-delete.
   (interactive "P")