From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 11 Mar 2006 15:20:09 +0000 (+0000)
Subject: (x_fully_uncatch_errors, x_catching_errors): New functions.
X-Git-Tag: emacs-pretest-22.0.90~3690
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e6feb692fb27773fd062a63e2b30aef4db5d4bac;p=emacs.git

(x_fully_uncatch_errors, x_catching_errors): New functions.
---

diff --git a/src/xterm.c b/src/xterm.c
index c0941b7cbdb..92b245f2b32 100644
--- a/src/xterm.c
+++ b/src/xterm.c
@@ -7590,6 +7590,23 @@ x_clear_errors (dpy)
   x_error_message->string[0] = 0;
 }
 
+/* Close off all unclosed x_catch_errors calls.  */
+
+void
+x_fully_uncatch_errors ()
+{
+  while (x_error_message)
+    x_uncatch_errors ();
+}
+
+/* Nonzero if x_catch_errors has been done and not yet canceled.  */
+
+int
+x_catching_errors ()
+{
+  return x_error_message != 0;
+}
+
 #if 0
 static unsigned int x_wire_count;
 x_trace_wire ()