More and more stack-allocated Lisp objects if USE_LOCAL_ALLOCATORS.

[gnu-emacs] / src / xfaces.c

diff --git a/src/xfaces.c b/src/xfaces.c
index a0998d7cbbc9bf6e662d92ef5383f1ae711b99ba..f788c304bd8d9a9b7cc304d03a6e507483fa7c41 100644 (file)
--- a/src/xfaces.c
+++ b/src/xfaces.c
@@ -3398,7 +3398,7 @@ set_font_frame_param (Lisp_Object frame, Lisp_Object lface)
          ASET (lface, LFACE_FONT_INDEX, font);
        }
       f->default_face_done_p = 0;
-      Fmodify_frame_parameters (frame, list1 (Fcons (Qfont, font)));
+      Fmodify_frame_parameters (frame, FRAME_PARAMETER (Qfont, font));
     }
 }
 
@@ -3787,18 +3787,18 @@ Default face attributes override any local face attributes.  */)
              && newface->font)
            {
              Lisp_Object name = newface->font->props[FONT_NAME_INDEX];
-             Fmodify_frame_parameters (frame, list1 (Fcons (Qfont, name)));
+             Fmodify_frame_parameters (frame, FRAME_PARAMETER (Qfont, name));
            }
 
          if (STRINGP (gvec[LFACE_FOREGROUND_INDEX]))
-           Fmodify_frame_parameters (frame,
-                                     list1 (Fcons (Qforeground_color,
-                                                   gvec[LFACE_FOREGROUND_INDEX])));
+           Fmodify_frame_parameters
+             (frame, FRAME_PARAMETER (Qforeground_color,
+                                      gvec[LFACE_FOREGROUND_INDEX]));
 
          if (STRINGP (gvec[LFACE_BACKGROUND_INDEX]))
-           Fmodify_frame_parameters (frame,
-                                     list1 (Fcons (Qbackground_color,
-                                                   gvec[LFACE_BACKGROUND_INDEX])));
+           Fmodify_frame_parameters
+             (frame, FRAME_PARAMETER (Qbackground_color,
+                                      gvec[LFACE_BACKGROUND_INDEX]));
        }
     }