dired-recursive-deletes lacks "always" customization option

[Fabrice Bauzac]

Hello,

I don't know whether it is a bug or if it has been removed on purpose
(because it is dangerous), but the customization information on
dired-recursive-deletes doesn't permit to choose the 'always
possibility.  However, the documentation string shown by custom-mode
indicates that possibility.

;;; In dired.el:
(defcustom dired-recursive-deletes nil ; Default only delete empty directories.
  "*Decide whether recursive deletes are allowed.
nil means no recursive deletes.
`always' means delete recursively without asking.  This is DANGEROUS!
`top' means ask for each directory at top level, but delete its subdirectories
without asking.
Anything else means ask for each directory."
  :type '(choice :tag "Delete not empty directory"
                 (const :tag "No. Only empty directories" nil)
                 (const :tag "Ask for each directory" t)
                 (const :tag "Ask for each top directory only" top))
  :group 'dired)

In GNU Emacs 21.3.50.1 (i686-pc-linux-gnu, X toolkit, Xaw3d scroll bars)
 of 2002-11-16 on noon.dnsalias.net
configured using `configure '--prefix=/home/noon/emacs-cvs-prefix''

Important settings:
  value of $LC_ALL: fr_FR
  value of $LC_COLLATE: nil
  value of $LC_CTYPE: nil
  value of $LC_MESSAGES: nil
  value of $LC_MONETARY: nil
  value of $LC_NUMERIC: nil
  value of $LC_TIME: nil
  value of $LANG: fr_FR
  locale-coding-system: iso-latin-1
  default-enable-multibyte-characters: t

Recent input:
e <tab> d <tab> r e <tab> c <tab> c o <tab> <return> 
C-x o C-u C-n C-u C-n C-n C-n C-e C-b C-b C-b C-b <return> 
C-n C-n C-n C-n C-n C-p C-p C-p C-p C-p C-SPC C-n C-n 
C-n C-n C-n C-n C-n C-n C-n C-n C-n C-n M-w C-x 1 C-x 
b C-g M-x e m <tab> a <tab> C-g M-x r e p <tab> o <tab> 
r <tab> b u <tab> <tab> SPC i <tab> n <backspace> <tab> 
<tab> C-a C-k C-g C-h f C-y <return> C-x 1 M-x C-y 
<M-backspace> <M-backspace> <return> b <tab> <retu
rn>

Recent messages:
Making completion list... [2 times]
Type C-x 1 to remove help window.  C-M-v to scroll the help.
Mark set
Quit
Making completion list...
Quit
Making completion list... [2 times]
Quit
Type C-x 1 to remove help window.  C-M-v to scroll the help.
Making completion list...

Thanks.

-- 
fabrice bauzac
Software should be free.  http://www.gnu.org/philosophy/why-free.html