From 940fada01383aa053ee7b5f70e3714d8b6954818 Mon Sep 17 00:00:00 2001 From: nverno Date: Thu, 16 Nov 2023 17:55:59 -0800 Subject: [PATCH] Fix test name with erts-run-test with point-char --- lisp/progmodes/erts-mode.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/progmodes/erts-mode.el b/lisp/progmodes/erts-mode.el index 8dce93eae7e..5ff74082461 100644 --- a/lisp/progmodes/erts-mode.el +++ b/lisp/progmodes/erts-mode.el @@ -181,7 +181,8 @@ erts-run-test (ert-test--erts-test (list (cons 'dummy t) (cons 'code (car (read-from-string test-function))) - (cons 'point-char (erts-mode--preceding-spec "Point-Char"))) + (cons 'point-char (save-match-data + (erts-mode--preceding-spec "Point-Char")))) (buffer-file-name)) (:success (message "Test successful")) (ert-test-failed -- 2.34.1