From: Jim Meyering <jim@meyering.net>
Date: Sun, 19 Jun 1994 04:48:15 +0000 (+0000)
Subject: GNU shell utilities
X-Git-Tag: SHELLUTILS-1_10c
X-Git-Url: http://erislabs.org.uk/gitweb/?a=commitdiff_plain;h=09ce65ba63fc852c3c01feddc1f22e75891f5e10;p=gnulib.git

GNU shell utilities
---

diff --git a/lib/alloca.c b/lib/alloca.c
index bd4932aa4..d1f4d1a30 100644
--- a/lib/alloca.c
+++ b/lib/alloca.c
@@ -29,6 +29,10 @@
 #endif
 #endif
 
+#ifdef emacs
+#include "blockinput.h"
+#endif
+
 /* If compiling with GCC 2, this file's not needed.  */
 #if !defined (__GNUC__) || __GNUC__ < 2
 
@@ -176,6 +180,10 @@ alloca (size)
   {
     register header *hp;	/* Traverses linked list.  */
 
+#ifdef emacs
+    BLOCK_INPUT;
+#endif
+
     for (hp = last_alloca_header; hp != NULL;)
       if ((STACK_DIR > 0 && hp->h.deep > depth)
 	  || (STACK_DIR < 0 && hp->h.deep < depth))
@@ -190,6 +198,10 @@ alloca (size)
 	break;			/* Rest are not deeper.  */
 
     last_alloca_header = hp;	/* -> last valid storage.  */
+
+#ifdef emacs
+    UNBLOCK_INPUT;
+#endif
   }
 
   if (size == 0)