From: Mattias Engdegård <mattiase@acm.org>
Date: Wed, 29 Mar 2023 20:16:37 +0000 (+0200)
Subject: ; * test/lisp/dired-aux-tests.el: remove mistaken unwind-protect
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=560c27a332cf3739fc0b2bab7ad3118cd6998f12;p=emacs.git

; * test/lisp/dired-aux-tests.el: remove mistaken unwind-protect
---

diff --git a/test/lisp/dired-aux-tests.el b/test/lisp/dired-aux-tests.el
index 5939f480680..62011d8b0f0 100644
--- a/test/lisp/dired-aux-tests.el
+++ b/test/lisp/dired-aux-tests.el
@@ -55,12 +55,11 @@
            (setq to-mv
                  (expand-file-name
                   "foo-mv" (file-name-as-directory (expand-file-name "qux" ,foo))))
-           (unwind-protect
-               (if ,yes-or-no
-                   (cl-letf (((symbol-function 'yes-or-no-p)
-                              (lambda (_prompt) (eq ,yes-or-no 'yes))))
-                     ,@body)
-                 ,@body)))))))
+           (if ,yes-or-no
+               (cl-letf (((symbol-function 'yes-or-no-p)
+                          (lambda (_prompt) (eq ,yes-or-no 'yes))))
+                 ,@body)
+             ,@body))))))
 
 (ert-deftest dired-test-bug28834 ()
   "test for https://debbugs.gnu.org/28834 ."