[Emacs-diffs] /srv/bzr/emacs/emacs-23 r100617: Backport r100703 from trunk.

[Chong Yidong]

------------------------------------------------------------
revno: 100617 [merge]
committer: Chong Yidong <address@hidden>
branch nick: emacs-23
timestamp: Thu 2011-07-28 11:47:17 -0400
message:
  Backport r100703 from trunk.
  This is required by the recent --reverse-video fix.
  
  2011-07-28  Eli Zaretskii  <address@hidden>
  
        * xfaces.c (update_face_from_frame_parameter): Move out of
        HAVE_WINDOW_SYSTEM portion.  Condition window-system only parts
        with HAVE_WINDOW_SYSTEM.
modified:
  src/ChangeLog
  src/xfaces.c

=== modified file 'src/ChangeLog'
--- a/src/ChangeLog     2011-07-26 11:00:23 +0000
+++ b/src/ChangeLog     2011-07-28 15:45:07 +0000
@@ -1,3 +1,9 @@
+2011-07-28  Eli Zaretskii  <address@hidden>
+
+       * xfaces.c (update_face_from_frame_parameter): Move out of
+       HAVE_WINDOW_SYSTEM portion.  Condition window-system only parts
+       with HAVE_WINDOW_SYSTEM.
+
 2011-07-26  Andreas Schwab  <address@hidden>
 
        * fontset.c (fontset_get_font_group): Add proper type checks.

=== modified file 'src/xfaces.c'
--- a/src/xfaces.c      2011-05-09 09:59:23 +0000
+++ b/src/xfaces.c      2011-07-28 15:45:07 +0000
@@ -3490,37 +3490,6 @@
 }
 
 
-#ifdef HAVE_WINDOW_SYSTEM
-
-/* Set the `font' frame parameter of FRAME determined from the
-   font-object set in `default' face attributes LFACE.  */
-
-static void
-set_font_frame_param (frame, lface)
-     Lisp_Object frame, lface;
-{
-  struct frame *f = XFRAME (frame);
-  Lisp_Object font;
-
-  if (FRAME_WINDOW_P (f)
-      /* Don't do anything if the font is `unspecified'.  This can
-        happen during frame creation.  */
-      && (font = LFACE_FONT (lface),
-         ! UNSPECIFIEDP (font)))
-    {
-      if (FONT_SPEC_P (font))
-       {
-         font = font_load_for_lface (f, XVECTOR (lface)->contents, font);
-         if (NILP (font))
-           return;
-         LFACE_FONT (lface) = font;
-       }
-      f->default_face_done_p = 0;
-      Fmodify_frame_parameters (frame, Fcons (Fcons (Qfont, font), Qnil));
-    }
-}
-
-
 /* Update the corresponding face when frame parameter PARAM on frame F
    has been assigned the value NEW_VALUE.  */
 
@@ -3562,6 +3531,7 @@
                                  ? new_value : Qunspecified);
       realize_basic_faces (f);
     }
+#ifdef HAVE_WINDOW_SYSTEM
   else if (EQ (param, Qborder_color))
     {
       face = Qborder;
@@ -3583,6 +3553,7 @@
       LFACE_BACKGROUND (lface) = (STRINGP (new_value)
                                  ? new_value : Qunspecified);
     }
+#endif
 
   /* Changing a named face means that all realized faces depending on
      that face are invalid.  Since we cannot tell which realized faces
@@ -3598,6 +3569,37 @@
 }
 
 
+#ifdef HAVE_WINDOW_SYSTEM
+
+/* Set the `font' frame parameter of FRAME determined from the
+   font-object set in `default' face attributes LFACE.  */
+
+static void
+set_font_frame_param (frame, lface)
+     Lisp_Object frame, lface;
+{
+  struct frame *f = XFRAME (frame);
+  Lisp_Object font;
+
+  if (FRAME_WINDOW_P (f)
+      /* Don't do anything if the font is `unspecified'.  This can
+        happen during frame creation.  */
+      && (font = LFACE_FONT (lface),
+         ! UNSPECIFIEDP (font)))
+    {
+      if (FONT_SPEC_P (font))
+       {
+         font = font_load_for_lface (f, XVECTOR (lface)->contents, font);
+         if (NILP (font))
+           return;
+         LFACE_FONT (lface) = font;
+       }
+      f->default_face_done_p = 0;
+      Fmodify_frame_parameters (frame, Fcons (Fcons (Qfont, font), Qnil));
+    }
+}
+
+
 /* Get the value of X resource RESOURCE, class CLASS for the display
    of frame FRAME.  This is here because ordinary `x-get-resource'
    doesn't take a frame argument.  */