From e38f41369fafe4cced5258ca3a8e481d28f70ac8 Mon Sep 17 00:00:00 2001
From: Gerd Moellmann <gerd@gnu.org>
Date: Mon, 2 Jul 2001 09:21:08 +0000
Subject: [PATCH] (x_list_fonts): Make sure XFreeFont is called with input
 blocked.

---
 src/xterm.c | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/src/xterm.c b/src/xterm.c
index c7b8535c480..72aa0826de9 100644
--- a/src/xterm.c
+++ b/src/xterm.c
@@ -13437,8 +13437,13 @@ x_list_fonts (f, pattern, size, maxnames)
 		    }
 		}
 	    }
+	  
 	  if (!try_XLoadQueryFont)
-	    XFreeFontNames (names);
+	    {
+	      BLOCK_INPUT;
+	      XFreeFontNames (names);
+	      UNBLOCK_INPUT;
+	    }
 	}
 
       /* Now store the result in the cache.  */
@@ -13490,7 +13495,9 @@ x_list_fonts (f, pattern, size, maxnames)
 		    = (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
-- 
2.39.5