procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Eli Zaretskii 2025-01-24 10:26:26 +02:00
parent 15315780ae
commit c941b94e51
2 changed files with 11 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/dispnew.c
View file

@ -3967,7 +3967,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))
{

10
test/src/editfns-tests.el
View file

@ -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