GNU bug report logs - #27940
Recursively delete dir34? (yes, no, all, quit)

Previous Next

Package: emacs;

Reported by: 積丹尼 Dan Jacobson <jidanni <at> jidanni.org>

Date: Fri, 4 Aug 2017 00:38:01 UTC

Severity: wishlist

Done: Tino Calancha <tino.calancha <at> gmail.com>

Bug is archived. No further changes may be made.

Full log

View this message in rfc822 format

From: Tino Calancha <tino.calancha <at> gmail.com>
To: Eli Zaretskii <eliz <at> gnu.org>
Cc: 27940 <at> debbugs.gnu.org, jidanni <at> jidanni.org
Subject: bug#27940: Recursively delete dir34? (yes, no, all, quit)
Date: Fri, 04 Aug 2017 18:37:18 +0900

Tino Calancha <tino.calancha <at> 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))))
This bug report was last modified 7 years and 218 days ago.

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.