# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 937221248 0
# Node ID 1878f7ae0df584f937ee2eb428a93f09cb7b81a9
# Parent  1223d6401ab2bf878c6388111cc936e6755e5a90
(frame_or_selected_frame): Change for Lisp_Object
selected_frame.
(Finternal_set_lisp_face_attribute): Ditto.
(Finternal_get_lisp_face_attribute): Ditto.
(Finternal_lisp_face_empty_p): Ditto.
(Fdump_face): Ditto.

diff -r 1223d6401ab2 -r 1878f7ae0df5 src/xfaces.c
--- a/src/xfaces.c	Mon Sep 13 11:13:59 1999 +0000
+++ b/src/xfaces.c	Mon Sep 13 11:14:08 1999 +0000
@@ -637,27 +637,22 @@
 }
 
 
-/* If FRAME is nil, return selected_frame.  Otherwise, check that
-   FRAME is a live frame, and return a pointer to it.  NPARAM
-   is the parameter number of FRAME, for CHECK_LIVE_FRAME.  This is
-   here because it's a frequent pattern in Lisp function definitions.  */
+/* If FRAME is nil, return a pointer to the selected frame.
+   Otherwise, check that FRAME is a live frame, and return a pointer
+   to it.  NPARAM is the parameter number of FRAME, for
+   CHECK_LIVE_FRAME.  This is here because it's a frequent pattern in
+   Lisp function definitions.  */
 
 static INLINE struct frame *
 frame_or_selected_frame (frame, nparam)
      Lisp_Object frame;
      int nparam;
 {
-  struct frame *f;
+  if (NILP (frame))
+    frame = selected_frame;
   
-  if (NILP (frame))
-    f = selected_frame;
-  else
-    {
-      CHECK_LIVE_FRAME (frame, nparam);
-      f = XFRAME (frame);
-    }
-
-  return f;
+  CHECK_LIVE_FRAME (frame, nparam);
+  return XFRAME (frame);
 }
 
 
@@ -3174,7 +3169,7 @@
   else
     {
       if (NILP (frame))
-	XSETFRAME (frame, selected_frame);
+	frame = selected_frame;
       
       CHECK_LIVE_FRAME (frame, 3);
       lface = lface_from_face_name (XFRAME (frame), face, 0);
@@ -3409,7 +3404,7 @@
 
       CHECK_STRING (value, 3);
       if (EQ (frame, Qt))
-	f = selected_frame;
+	f = SELECTED_FRAME ();
       else
 	f = check_x_frame (frame);
       
@@ -3742,7 +3737,7 @@
   else
     {
       if (NILP (frame))
-	XSETFRAME (frame, selected_frame);
+	frame = selected_frame;
       CHECK_LIVE_FRAME (frame, 2);
       lface = lface_from_face_name (XFRAME (frame), symbol, 1);
     }
@@ -3983,12 +3978,9 @@
   int i;
 
   if (NILP (frame))
-    f = selected_frame;
-  else
-    {
-      CHECK_LIVE_FRAME (frame, 0);
-      f = XFRAME (frame);
-    }
+    frame = selected_frame;
+  CHECK_LIVE_FRAME (frame, 0);
+  f = XFRAME (frame);
   
   if (EQ (frame, Qt))
     lface = lface_from_face_name (NULL, face, 1);
@@ -6234,14 +6226,14 @@
       debug_print (Vface_alternative_font_family_alist);
       fprintf (stderr, "\n");
 	
-      for (i = 0; i < FRAME_FACE_CACHE (selected_frame)->used; ++i)
+      for (i = 0; i < FRAME_FACE_CACHE (SELECTED_FRAME ())->used; ++i)
 	Fdump_face (make_number (i));
     }
   else
     {
       struct face *face;
       CHECK_NUMBER (n, 0);
-      face = FACE_FROM_ID (selected_frame, XINT (n));
+      face = FACE_FROM_ID (SELECTED_FRAME (), XINT (n));
       if (face == NULL)
 	error ("Not a valid face");
       dump_realized_face (face);