# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1279800931 -7200
# Node ID ced3f5ab1023e48faca9b140057ddcc23e73e1f0
# Parent  2d68a79d521364b287728079b8ed3f25f344cf9b
* dired.el (dired-no-confirm): Document value t and fix defcustom (bug#6597).

diff -r 2d68a79d5213 -r ced3f5ab1023 lisp/ChangeLog
--- a/lisp/ChangeLog	Thu Jul 22 13:54:27 2010 +0200
+++ b/lisp/ChangeLog	Thu Jul 22 14:15:31 2010 +0200
@@ -1,3 +1,8 @@
+2010-07-22  Juanma Barranquero  <lekktu@gmail.com>
+
+	* dired.el (dired-no-confirm): Document value t and fix defcustom to
+	accept it (bug#6597).  Suggested by Drew Adams <drew.adams@oracle.com>.
+
 2010-07-22  Teemu Likonen  <tlikonen@iki.fi>  (tiny change)
 
 	* dired.el (dired-mode-map): Use command remapping (bug#6632).
diff -r 2d68a79d5213 -r ced3f5ab1023 lisp/dired.el
--- a/lisp/dired.el	Thu Jul 22 13:54:27 2010 +0200
+++ b/lisp/dired.el	Thu Jul 22 14:15:31 2010 +0200
@@ -2763,17 +2763,19 @@
     (fit-window-to-buffer (get-buffer-window buf) nil 1)))
 
 (defcustom dired-no-confirm nil
-  "A list of symbols for commands Dired should not confirm.
+  "A list of symbols for commands Dired should not confirm, or t.
 Command symbols are `byte-compile', `chgrp', `chmod', `chown', `compress',
 `copy', `delete', `hardlink', `load', `move', `print', `shell', `symlink',
-`touch' and `uncompress'."
+`touch' and `uncompress'.
+If t, confirmation is never needed."
   :group 'dired
-  :type '(set (const byte-compile) (const chgrp)
-	      (const chmod) (const chown) (const compress)
-	      (const copy) (const delete) (const hardlink)
-	      (const load) (const move) (const print)
-	      (const shell) (const symlink) (const touch)
-	      (const uncompress)))
+  :type '(choice (const :tag "Confirmation never needed" t)
+		 (set (const byte-compile) (const chgrp)
+		      (const chmod) (const chown) (const compress)
+		      (const copy) (const delete) (const hardlink)
+		      (const load) (const move) (const print)
+		      (const shell) (const symlink) (const touch)
+		      (const uncompress))))
 
 (defun dired-mark-pop-up (bufname op-symbol files function &rest args)
   "Return FUNCTION's result on ARGS after showing which files are marked.