mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-28 01:00:52 -07:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Mattias Engdegård 2023-03-29 22:16:37 +02:00
parent bfa3500c3c
commit 560c27a332
1 changed files with 5 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

11
test/lisp/dired-aux-tests.el
View file

@ -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 ."