From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 8 Aug 1998 02:39:50 +0000 (+0000)
Subject: (x_list_fonts): Fix previous change.
X-Git-Tag: emacs-20.3~136
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a083fd237dddb107a3a08c280646ba0cd12ed8dd;p=emacs.git

(x_list_fonts): Fix previous change.
---

diff --git a/src/xterm.c b/src/xterm.c
index 5ae37327d7f..18a6619abba 100644
--- a/src/xterm.c
+++ b/src/xterm.c
@@ -6497,7 +6497,9 @@ x_list_fonts (f, pattern, size, maxnames)
 	    }
 	  else
 	    try_XLoadQueryFont = 0;
-	  XFreeFont (font);
+
+	  if (font)
+	    XFreeFont (dpy, font);
 	}
 
       if (!try_XLoadQueryFont)