From: Karl Heuer <kwzh@gnu.org>
Date: Mon, 17 Jul 1995 22:25:39 +0000 (+0000)
Subject: (Fx_list_fonts): Don't free thisinfo if it is 0.
X-Git-Tag: emacs-19.34~3313
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a03a26dbdf9fd68a5b0be755171c05283dfea5e7;p=emacs.git

(Fx_list_fonts): Don't free thisinfo if it is 0.
---

diff --git a/src/xfns.c b/src/xfns.c
index 1f399f5a9c4..3ae6c7c2c60 100644
--- a/src/xfns.c
+++ b/src/xfns.c
@@ -3239,7 +3239,8 @@ even if they match PATTERN and FACE.")
           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;