# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 986993870 0
# Node ID 36d04528f2aabc45550cf8d6774ebb285c712efa
# Parent  171ad460e884f8f4b7af2bc29bbaa9b00dad4499
(Fplist_get): Don't QUIT is interrupt_input_blocked.

diff -r 171ad460e884 -r 36d04528f2aa src/fns.c
--- a/src/fns.c	Wed Apr 11 08:36:45 2001 +0000
+++ b/src/fns.c	Wed Apr 11 12:57:50 2001 +0000
@@ -1872,7 +1872,11 @@
     {
       if (EQ (prop, XCAR (tail)))
 	return XCAR (XCDR (tail));
-      QUIT;
+
+      /* This function can be called asynchronously
+	 (setup_coding_system).  Don't QUIT in that case.  */
+      if (!interrupt_input_blocked)
+	QUIT;
     }
 
   if (!NILP (tail))
@@ -1915,6 +1919,7 @@
 	  Fsetcar (XCDR (tail), val);
 	  return plist;
 	}
+      
       prev = tail;
       QUIT;
     }