(Finternal_set_lisp_face_attribute): If FRAME is `t', update

`default-frame-alist' instead of setting no frame parameters.

diff --git a/src/ChangeLog b/src/ChangeLog
index 8df7fe714001128f80d86dfabf65770ad1df0d95..a3d3a31d4c66d8b5cec6c63198fd3698d6b22251 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2000-12-06  Miles Bader  <miles@gnu.org>
+
+       * xfaces.c (Finternal_set_lisp_face_attribute): If FRAME is `t',
+       update `default-frame-alist' instead of setting no frame parameters.
+
 2000-12-06  Kenichi Handa  <handa@etl.go.jp>
 
        * composite.c (update_compositions): Fix typo (use the correct

diff --git a/src/xfaces.c b/src/xfaces.c
index cad7c0725022cd91910f134ec98bcbe2e4ef8ba8..b6dfaed745b67c2cab9693e13cf00a9fa8659fa3 100644 (file)
--- a/src/xfaces.c
+++ b/src/xfaces.c
@@ -4080,8 +4080,7 @@ FRAME 0 means change the face on all frames, and change the default\n\
 
 #ifdef HAVE_WINDOW_SYSTEM
 
-  if (!EQ (frame, Qt)
-      && !UNSPECIFIEDP (value)
+  if (!UNSPECIFIEDP (value)
       && NILP (Fequal (old_value, value)))
     {
       Lisp_Object param;
@@ -4136,13 +4135,20 @@ FRAME 0 means change the face on all frames, and change the default\n\
        ++menu_face_change_count;
 
       if (!NILP (param))
-       {
-         Lisp_Object cons;
-         cons = XCAR (Vparam_value_alist);
-         XCAR (cons) = param;
-         XCDR (cons) = value;
-         Fmodify_frame_parameters (frame, Vparam_value_alist);
-       }
+       if (EQ (frame, Qt))
+         /* Update `default-frame-alist', which is used for new frames.  */
+         {
+           store_in_alist (&Vdefault_frame_alist, param, value);
+         }
+       else
+         /* Update the current frame's parameters.  */
+         {
+           Lisp_Object cons;
+           cons = XCAR (Vparam_value_alist);
+           XCAR (cons) = param;
+           XCDR (cons) = value;
+           Fmodify_frame_parameters (frame, Vparam_value_alist);
+         }
     }
 
 #endif /* HAVE_WINDOW_SYSTEM */