emacs-30 7b8d12e95de: Fix the latest dabbrev-expand test fix

[Stephen Berman]

branch: emacs-30
commit 7b8d12e95de6e6b5239c538ad6f5af96dc3e1c2a
Author: Stephen Berman <stephen.berman@gmx.net>
Commit: Stephen Berman <stephen.berman@gmx.net>

    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