# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 1003862526 0
# Node ID afcadaf71d6faf8b3ab57ad6752cff4afed3df36
# Parent  c86d8211ff3737ee44130579deb26a6a1ca13ede
(Finternal_set_lisp_face_attribute): Fix compilation
error.

diff -r c86d8211ff37 -r afcadaf71d6f src/xfaces.c
--- a/src/xfaces.c	Tue Oct 23 17:27:23 2001 +0000
+++ b/src/xfaces.c	Tue Oct 23 18:42:06 2001 +0000
@@ -4043,7 +4043,7 @@
   else if (EQ (attr, QCfont))
     {
 #ifdef HAVE_WINDOW_SYSTEM
-      if (FRAME_WINDOW_P (f))
+      if (FRAME_WINDOW_P (XFRAME (frame)))
 	{
 	  /* Set font-related attributes of the Lisp face from an XLFD
 	     font name.  */