# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 994065668 0
# Node ID b93fb0eb254d81f5390eaddebbaa373c89bf79ce
# Parent  9ada58a02f7ebe2be39e8c182d3904071e21bf95
(x_list_fonts): Make sure XFreeFont is called
with input blocked.

diff -r 9ada58a02f7e -r b93fb0eb254d src/xterm.c
--- a/src/xterm.c	Sat Jun 30 15:57:31 2001 +0000
+++ b/src/xterm.c	Mon Jul 02 09:21:08 2001 +0000
@@ -13437,8 +13437,13 @@
 		    }
 		}
 	    }
+	  
 	  if (!try_XLoadQueryFont)
-	    XFreeFontNames (names);
+	    {
+	      BLOCK_INPUT;
+	      XFreeFontNames (names);
+	      UNBLOCK_INPUT;
+	    }
 	}
 
       /* Now store the result in the cache.  */
@@ -13490,7 +13495,9 @@
 		    = (thisinfo->min_bounds.width == 0
 		       ? make_number (0)
 		       : make_number (thisinfo->max_bounds.width));
+		  BLOCK_INPUT;
 		  XFreeFont (dpy, thisinfo);
+		  UNBLOCK_INPUT;
 		}
 	      else
 		/* For unknown reason, the previous call of XListFont had