From: Mattias Engdegård <mattiase@acm.org>
Date: Mon, 14 Aug 2023 14:53:13 +0000 (+0200)
Subject: ; * test/lisp/dired-tests.el (dired-test-bug27243-03): fix unwind
X-Git-Tag: archive/raspbian/1%30.1+1-3+rpi1^2~2^2~20^2~4619^2
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=c868a737e41b76a6c47b1e3101a29f7eb7cc8563;p=emacs.git

; * test/lisp/dired-tests.el (dired-test-bug27243-03): fix unwind
---

diff --git a/test/lisp/dired-tests.el b/test/lisp/dired-tests.el
index 0701b229edd..8f2b9af09c0 100644
--- a/test/lisp/dired-tests.el
+++ b/test/lisp/dired-tests.el
@@ -241,12 +241,12 @@
             (let ((buffers (find-file (concat (file-name-as-directory test-dir)
                                               "*")
                                       t)))
+              (setq allbufs (append buffers allbufs))
               (dolist (buf buffers)
                 (let ((pt (with-current-buffer buf (point))))
                   (switch-to-buffer (find-file-noselect test-dir))
                   (find-file (buffer-name buf))
-                  (should (equal (point) pt))))
-              (append buffers allbufs)))
+                  (should (equal (point) pt))))))
         (dolist (buf allbufs)
           (when (buffer-live-p buf) (kill-buffer buf)))))))