aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorStephen Berman2024-12-03 10:38:26 +0100
committerStephen Berman2024-12-03 10:38:26 +0100
commit7b8d12e95de6e6b5239c538ad6f5af96dc3e1c2a (patch)
tree64715cf1700245167ec89e741559e990ddc6289c
parente618d5ae941d005e9da6d5d5cba68cc0ecade0e5 (diff)
downloademacs-7b8d12e95de6e6b5239c538ad6f5af96dc3e1c2a.tar.gz
emacs-7b8d12e95de6e6b5239c538ad6f5af96dc3e1c2a.zip
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.
-rw-r--r--test/lisp/dabbrev-tests.el9
1 files 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.
294 (should (string= (buffer-string) "abc abd")) 294 (should (string= (buffer-string) "abc abd"))
295 (kill-buffer "foo") 295 (kill-buffer "foo")
296 (erase-buffer) 296 (erase-buffer)
297 (let ((msg (cadr (should-error (execute-kbd-macro (kbd "abc SPC ab M-/ M-/")) 297 ;; In batch runs of this file, the user-error message contains curved
298 ;; quotes, but grave quotes when running `make check' (so here was
299 ;; evidently not passed to `substitute-command-keys'), so use grave
300 ;; quotes so the test succeeds in both modes of execution.
301 (let* ((text-quoting-style 'grave)
302 (msg (cadr (should-error (execute-kbd-macro (kbd "abc SPC ab M-/ M-/"))
298 :type 'user-error)))) 303 :type 'user-error))))
299 (should (string= (buffer-string) "abc ab")) 304 (should (string= (buffer-string) "abc ab"))
300 (should (string= msg "No further dynamic expansion for ab found"))))) 305 (should (string= msg "No further dynamic expansion for `ab' found")))))
301 306
302;;; dabbrev-tests.el ends here 307;;; dabbrev-tests.el ends here