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 ()