# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 806019939 0
# Node ID f4fb791df09944f5abe1663054c5c60fac2c7fd7
# Parent  ccc20d466150d9ca142d40e5a019f35fec6397ec
(Fx_list_fonts): Don't free thisinfo if it is 0.

diff -r ccc20d466150 -r f4fb791df099 src/xfns.c
--- a/src/xfns.c	Mon Jul 17 22:24:37 1995 +0000
+++ b/src/xfns.c	Mon Jul 17 22:25:39 1995 +0000
@@ -3239,7 +3239,8 @@
           if (thisinfo && same_size_fonts (thisinfo, size_ref))
 	    newlist = Fcons (XCONS (tem)->car, newlist);
 
-	  XFreeFont (FRAME_X_DISPLAY (f), thisinfo);
+	  if (thisinfo != 0)
+	    XFreeFont (FRAME_X_DISPLAY (f), thisinfo);
         }
 
       UNBLOCK_INPUT;