From 889c57231499641f4f798f6557ab9aeb30bfaae8 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Tue, 4 Feb 2025 14:18:38 +0200 Subject: [PATCH] ; * test/src/editfns-tests.el (editfns-tests-styled-print): New test. (cherry picked from commit 40e38a681dafb02f71d741338e9c3c5ff99c734e) --- test/src/editfns-tests.el | 11 +++++++++++ 1 file changed, 11 insertions(+) diff --git a/test/src/editfns-tests.el b/test/src/editfns-tests.el index 9fff4255b57..b18111ad119 100644 --- a/test/src/editfns-tests.el +++ b/test/src/editfns-tests.el @@ -534,4 +534,15 @@ 'utf-8 nil (current-buffer)) (should (null (sanity-check-change-functions-errors)))))) +(ert-deftest editfns-tests-styled-print () + "Test bug#75754." + :expected-result :failed + (let* ((print-unreadable-function + (lambda (&rest _args) + (garbage-collect) + (make-string 100 ?Ā t))) + (str "\"[1] ĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀ\"")) + (should (string= (format "%S" (format "%S %S" [1] (symbol-function '+))) + str)))) + ;;; editfns-tests.el ends here -- 2.39.5