# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 902543990 0
# Node ID 5493321d45268166ec816e54ef4fc9fd7b8a6ed2
# Parent  39f23890e482b1c23bb3b3dc63652725ebdd4e69
(x_list_fonts): Fix previous change.

diff -r 39f23890e482 -r 5493321d4526 src/xterm.c
--- a/src/xterm.c	Sat Aug 08 02:37:58 1998 +0000
+++ b/src/xterm.c	Sat Aug 08 02:39:50 1998 +0000
@@ -6497,7 +6497,9 @@
 	    }
 	  else
 	    try_XLoadQueryFont = 0;
-	  XFreeFont (font);
+
+	  if (font)
+	    XFreeFont (dpy, font);
 	}
 
       if (!try_XLoadQueryFont)