Merged from miles@gnu.org--gnu-2005 (patch 159)

Patches applied:

 * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-159
   Update from CVS

git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-307

1 files changed, 24 insertions, 1 deletions

diff --git a/src/blockinput.h b/src/blockinput.h
index a4c8a9b9c22..a3b50d2a0f2 100644
--- a/src/blockinput.h
+++ b/src/blockinput.h
@@ -94,7 +94,30 @@ extern int pending_atimers;
     }                                           \
   while (0)
 
-#define TOTALLY_UNBLOCK_INPUT (interrupt_input_blocked = 0)
+/* Undo any number of BLOCK_INPUT calls,
+   and also reinvoke any pending signal.  */
+
+#define TOTALLY_UNBLOCK_INPUT                   \
+  if (interrupt_input_blocked != 0)             \
+    {                                           \
+      interrupt_input_blocked = 1;              \
+      UNBLOCK_INPUT;                            \
+    }                                           \
+  else
+
+/* Undo any number of BLOCK_INPUT calls down to level LEVEL,
+   and also (if the level is now 0) reinvoke any pending signal.  */
+
+#define UNBLOCK_INPUT_TO(LEVEL)                         \
+  do                                                    \
+    {                                                   \
+      int oldlevel = interrupt_input_blocked;           \
+      interrupt_input_blocked = (LEVEL) + 1;            \
+      if (interrupt_input_blocked != oldlevel + 1)      \
+        UNBLOCK_INPUT;                                  \
+    }                                                   \
+  while (0)
+
 #define UNBLOCK_INPUT_RESIGNAL UNBLOCK_INPUT
 
 /* In critical section ? */