From: Gerd Moellmann <gerd@gnu.org>
Date: Mon, 2 Jul 2001 09:21:08 +0000 (+0000)
Subject: (x_list_fonts): Make sure XFreeFont is called
X-Git-Tag: emacs-pretest-21.0.104~103
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e38f41369fafe4cced5258ca3a8e481d28f70ac8;p=emacs.git

(x_list_fonts): Make sure XFreeFont is called
with input blocked.
---

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