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

diff --git a/src/xfns.c b/src/xfns.c
index 1f399f5a9c467f2940f82a89dfa42814563abacd..3ae6c7c2c60d02692799f11b0862ba2e98ac278f 100644 (file)
--- 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;