From: Gerd Moellmann <gerd@gnu.org>
Date: Tue, 23 Oct 2001 18:42:35 +0000 (+0000)
Subject: (Finternal_set_lisp_face_attribute): Fix compilation
X-Git-Tag: ttn-vms-21-2-B4~19222
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=496e1a5b3d4f4b332b11f5f9f758b3f8fff3e5f0;p=emacs.git

(Finternal_set_lisp_face_attribute): Fix compilation
error.
---

diff --git a/src/ChangeLog b/src/ChangeLog
index c1f9d2ec862..51fb00e325b 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2001-10-23  Gerd Moellmann  <gerd@gnu.org>
+
+	* xfaces.c (Finternal_set_lisp_face_attribute): Fix compilation
+	error.
+
 2001-10-23  Eli Zaretskii  <eliz@is.elta.co.il>
 
 	* xfaces.c (Finternal_set_lisp_face_attribute)
diff --git a/src/xfaces.c b/src/xfaces.c
index 011cd54fd87..cdf6c427d4b 100644
--- a/src/xfaces.c
+++ b/src/xfaces.c
@@ -4043,7 +4043,7 @@ FRAME 0 means change the face on all frames, and change the default
   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.  */