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

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

2 files changed, 20 insertions, 9 deletions

diff --git a/src/ChangeLog b/src/ChangeLog
index 8df7fe71400..a3d3a31d4c6 100644
--- 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 cad7c072502..b6dfaed745b 100644
--- 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 */