From c5f8b5175e199a2a85a073ea57216d49d7a8c912 Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Wed, 18 Jun 2025 21:08:30 +0200 Subject: [PATCH] ; Fix last change (cherry picked from commit e3e0be8786bcec162d150fa0029db45f8065b6a4) --- lisp/emacs-lisp/ert.el | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/lisp/emacs-lisp/ert.el b/lisp/emacs-lisp/ert.el index 3a9ba594eaf..a4354b5bc0f 100644 --- 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. -- 2.39.5