From 7b8d12e95de6e6b5239c538ad6f5af96dc3e1c2a Mon Sep 17 00:00:00 2001 From: Stephen Berman Date: Tue, 3 Dec 2024 10:38:26 +0100 Subject: [PATCH] Fix the latest dabbrev-expand test fix * test/lisp/dabbrev-tests.el (dabbrev-expand-after-killing-buffer): In batch runs of this file, the user-error message contains curved quotes, but grave quotes when running `make check' (so here was evidently not passed to `substitute-command-keys'), so use grave quotes so the test succeeds in both modes of execution. --- test/lisp/dabbrev-tests.el | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/test/lisp/dabbrev-tests.el b/test/lisp/dabbrev-tests.el index 3e84024698f..fb8715924d1 100644 --- a/test/lisp/dabbrev-tests.el +++ b/test/lisp/dabbrev-tests.el @@ -294,9 +294,14 @@ leaving the unexpanded string in the buffer." ; See bug#74090. (should (string= (buffer-string) "abc abd")) (kill-buffer "foo") (erase-buffer) - (let ((msg (cadr (should-error (execute-kbd-macro (kbd "abc SPC ab M-/ M-/")) + ;; In batch runs of this file, the user-error message contains curved + ;; quotes, but grave quotes when running `make check' (so here was + ;; evidently not passed to `substitute-command-keys'), so use grave + ;; quotes so the test succeeds in both modes of execution. + (let* ((text-quoting-style 'grave) + (msg (cadr (should-error (execute-kbd-macro (kbd "abc SPC ab M-/ M-/")) :type 'user-error)))) (should (string= (buffer-string) "abc ab")) - (should (string= msg "No further dynamic expansion for ‘ab’ found"))))) + (should (string= msg "No further dynamic expansion for `ab' found"))))) ;;; dabbrev-tests.el ends here -- 2.30.2