; Fix last change

(cherry picked from commit e3e0be8786bcec162d150fa0029db45f8065b6a4)

diff --git a/lisp/emacs-lisp/ert.el b/lisp/emacs-lisp/ert.el
index 3a9ba594eaf78cd6e0ccc49f5e5f3d5deca8895f..a4354b5bc0f67baef3e64937e8fb70eb82e82e4a 100644 (file)
--- a/lisp/emacs-lisp/ert.el
+++ b/lisp/emacs-lisp/ert.el
@@ -2621,13 +2621,14 @@ definition."
   (goto-char (ert--button-action-position))
   (ert-results-jump-between-summary-and-result))
 
-(defun ert--results-progress-bar-button-help-echo (_window _object pos)
+(defun ert--results-progress-bar-button-help-echo (_window object pos)
   "Show the test name in `help-echo'."
   (format
    "%s\nmouse-2, RET: Reveal test result"
-   (save-excursion
-     (goto-char pos)
-     (or (ert-test-at-point) ""))))
+   (with-current-buffer object
+     (save-excursion
+       (goto-char pos)
+       (or (ert-test-at-point) "")))))
 
 (defun ert-results-rerun-all-tests ()
   "Re-run all tests, using the same selector.