# HG changeset patch
# User Jan Dj¸«£rv <jan.h.d@swipnet.se>
# Date 1045634394 0
# Node ID 6d5c33f4dd0536fdad4cb8405ab713c5f505853b
# Parent  22e7cf92fa431e699e6d0d1a1c7ea6197178af41
* xfaces.c (x_face_list_fonts): Set *pfonts to 0 if no fonts found.

diff -r 22e7cf92fa43 -r 6d5c33f4dd05 src/ChangeLog
--- a/src/ChangeLog	Wed Feb 19 02:51:22 2003 +0000
+++ b/src/ChangeLog	Wed Feb 19 05:59:54 2003 +0000
@@ -1,3 +1,7 @@
+2003-02-19  Jan Dj,Ad(Brv  <jan.h.d@swipnet.se>
+
+	* xfaces.c (x_face_list_fonts): Set *pfonts to 0 if no fonts found.
+
 2003-02-18  Jan Dj,Ad(Brv  <jan.h.d@swipnet.se>
 
 	* xterm.c (x_list_fonts): If maxnames is less than 0, get all font
diff -r 22e7cf92fa43 -r 6d5c33f4dd05 src/xfaces.c
--- a/src/xfaces.c	Wed Feb 19 02:51:22 2003 +0000
+++ b/src/xfaces.c	Wed Feb 19 05:59:54 2003 +0000
@@ -2516,8 +2516,12 @@
     {
       Lisp_Object list = Valternate_fontname_alist;
 
-      if (fonts) xfree (fonts);
-      
+      if (*pfonts)
+        {
+          xfree (*pfonts);
+          *pfonts = 0;
+        }
+
       while (CONSP (list))
 	{
 	  Lisp_Object entry = XCAR (list);