[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 560c27a332c: ; * test/lisp/dired-aux-tests.el: remove mistaken un
From: |
Mattias Engdegård |
Subject: |
master 560c27a332c: ; * test/lisp/dired-aux-tests.el: remove mistaken unwind-protect |
Date: |
Thu, 30 Mar 2023 04:02:07 -0400 (EDT) |
branch: master
commit 560c27a332cf3739fc0b2bab7ad3118cd6998f12
Author: Mattias Engdegård <mattiase@acm.org>
Commit: Mattias Engdegård <mattiase@acm.org>
; * test/lisp/dired-aux-tests.el: remove mistaken unwind-protect
---
test/lisp/dired-aux-tests.el | 11 +++++------
1 file changed, 5 insertions(+), 6 deletions(-)
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 ."
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 560c27a332c: ; * test/lisp/dired-aux-tests.el: remove mistaken unwind-protect,
Mattias Engdegård <=