From: Eli Zaretskii <eliz@gnu.org>
Date: Sun, 19 Jun 2022 14:15:40 +0000 (+0300)
Subject: Show warnings about aborted redisplay
X-Git-Tag: emacs-29.0.90~1447^2~1506^2~1
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b89b23079cba00113fbc8b658a07e884392ff3a1;p=emacs.git

Show warnings about aborted redisplay

* src/xdisp.c (redisplay_window_error): Show messages about
aborted redisplay of a window as delayed-warnings.
---

diff --git a/src/xdisp.c b/src/xdisp.c
index f95aeb6149a..e9dcdd72333 100644
--- a/src/xdisp.c
+++ b/src/xdisp.c
@@ -17161,9 +17161,19 @@ redisplay_windows (Lisp_Object window)
 }
 
 static Lisp_Object
-redisplay_window_error (Lisp_Object ignore)
+redisplay_window_error (Lisp_Object error_data)
 {
   displayed_buffer->display_error_modiff = BUF_MODIFF (displayed_buffer);
+
+  /* When in redisplay, the error is captured and not shown.  Arrange
+     for it to be shown later.  */
+  if (max_redisplay_ticks > 0
+      && CONSP (error_data)
+      && EQ (XCAR (error_data), Qerror)
+      && STRINGP (XCAR (XCDR (error_data))))
+    Vdelayed_warnings_list = Fcons (list2 (XCAR (error_data),
+					   XCAR (XCDR (error_data))),
+				    Vdelayed_warnings_list);
   return Qnil;
 }