From: Eli Zaretskii <eliz@gnu.org>
Date: Fri, 24 Jan 2025 08:26:26 +0000 (+0200)
Subject: ; * src/dispnew.c (combine_updates_for_frame): Fix whitespace.
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=296aaa23195e5349f6aaf5efd0a6e5ece0fce99f;p=emacs.git

; * src/dispnew.c (combine_updates_for_frame): Fix whitespace.

(cherry picked from commit c941b94e51f4e5996718416ac908249cb71da1d9)
---

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