; * 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 fe82bcfd822425e8b4a0cd64aa59021e9c857f10..39a2fd659f97565cc8cfd4a8a3a0645d389b0143 100644 (file)
--- 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 9fff4255b57fc5abddc1165fbbcc47401c82dd82..6da3c73f0013a0a77847b647471240a2f822109d 100644 (file)
--- 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