(Finternal_set_lisp_face_attribute): Fix compilation

error.

2 files changed, 6 insertions, 1 deletions

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.  */