From 53ade5c75e44ae7c93fd363b9c957d2e5990990d Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 6 Jan 2003 01:20:35 +0000 Subject: [PATCH] (dired-recursive-deletes): Fix custom type. --- lisp/dired.el | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/lisp/dired.el b/lisp/dired.el index 700d1e25634..fd4ed845700 100644 --- a/lisp/dired.el +++ b/lisp/dired.el @@ -2046,10 +2046,11 @@ nil means no recursive deletes. `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)) + :type '(choice :tag "Delete non-empty directories" + (const :tag "Yes" always) + (const :tag "No--only delete empty directories" nil) + (const :tag "Confirm for each directory" t) + (const :tag "Confirm for each top directory only" top)) :group 'dired) ;; Match anything but `.' and `..'. -- 2.39.2