From 296aaa23195e5349f6aaf5efd0a6e5ece0fce99f Mon Sep 17 00:00:00 2001
From: Eli Zaretskii <eliz@gnu.org>
Date: Fri, 24 Jan 2025 10:26:26 +0200
Subject: [PATCH] ; * src/dispnew.c (combine_updates_for_frame): Fix
 whitespace.

(cherry picked from commit c941b94e51f4e5996718416ac908249cb71da1d9)
---
 src/dispnew.c             |  2 +-
 test/src/editfns-tests.el | 10 ++++++++++
 2 files changed, 11 insertions(+), 1 deletion(-)

diff --git a/src/dispnew.c b/src/dispnew.c
index fe82bcfd822..39a2fd659f9 100644
--- a/src/dispnew.c
+++ b/src/dispnew.c
@@ -3964,7 +3964,7 @@ combine_updates_for_frame (struct frame *f, bool inhibit_scrolling)
 
   /* Determine visible frames on the root frame, including the root
      frame itself.  Note that there are cases, see bug#75056, where we
-     can be called for invisible frames. */
+     can be called for invisible frames.  */
   Lisp_Object z_order = frames_in_reverse_z_order (root, true);
   if (NILP (z_order))
     {
diff --git a/test/src/editfns-tests.el b/test/src/editfns-tests.el
index 9fff4255b57..6da3c73f001 100644
--- a/test/src/editfns-tests.el
+++ b/test/src/editfns-tests.el
@@ -534,4 +534,14 @@
                             'utf-8 nil (current-buffer))
       (should (null (sanity-check-change-functions-errors))))))
 
+(ert-deftest editfns-tests-styled-print ()
+   (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