Fix debug printouts

svaante · Jan 1, 2024 · ae0ac0d · ae0ac0d
1 parent 1e9587b
commit ae0ac0d
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/dape-tests.el b/dape-tests.el
@@ -54,7 +54,8 @@ failed."
           (message "Current buffer: %s" (current-buffer))
           (message "Current buffer contents:\n%s" (buffer-string))
           (when-let ((debug-buffer (get-buffer "*dape-debug*")))
-            (message "dape-debug contents:\n%s" (buffer-string)))
+            (with-current-buffer debug-buffer
+              (message "dape-debug contents:\n%s" (buffer-string))))
           (signal 'ert-test-failed (cdr err))))
        (let ((ret ,pred))
          (ignore ret)