|
From: | Tino Calancha |
Subject: | bug#27940: Recursively delete dir34? (yes, no, all, quit) |
Date: | Fri, 04 Aug 2017 18:37:18 +0900 |
User-agent: | Gnus/5.13 (Gnus v5.13) Emacs/26.0.50 (gnu/linux) |
Tino Calancha <tino.calancha@gmail.com> writes: > + ;; Otherwise prompt user: > + (while (string= "" answer) (funcall input-fn)) > + (pcase answer > + ('"!" (setq recursive 'always dired-recursive-deletes > recursive)) > + ('"y" (if (eq recursive 'top) (setq recursive 'always))) > + ('"q" (keyboard-quit)))) > + (delete-directory file recursive trash)))) Upps, i forgot the 'n' case: @@ -3015,6 +3015,7 @@ dired-delete-file (pcase answer ('"!" (setq recursive 'always dired-recursive-deletes recursive)) ('"y" (if (eq recursive 'top) (setq recursive 'always))) + ('"n" (setq recursive nil)) ('"q" (keyboard-quit)))) (delete-directory file recursive trash))))
[Prev in Thread] | Current Thread | [Next in Thread] |