mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-03 18:41:25 -08:00
Code Issues Projects Releases Wiki Activity

; Fix last change

Browse source
This commit is contained in:
Michael Albinus 2025-06-18 21:08:30 +02:00
parent 5310083ba0
commit e3e0be8786
1 changed files with 5 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lisp/emacs-lisp/ert.el
View file

@ -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.