From e3e0be8786bcec162d150fa0029db45f8065b6a4 Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Wed, 18 Jun 2025 21:08:30 +0200 Subject: [PATCH] ; Fix last change --- 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 7976bd07386..cf21af8f101 100644 --- a/lisp/emacs-lisp/ert.el +++ b/lisp/emacs-lisp/ert.el @@ -2628,13 +2628,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.