Mercurial > emacs

comparison src/macfns.c @ 96554:e1cdfeed8fea

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(x_create_tip_frame): Pass parameter argument to face-set-after-frame-default.
author Chong Yidong <cyd@stupidchicken.com>
date Tue, 08 Jul 2008 17:30:55 +0000
parents 8c06bfa2117a
children b306a69b9d7f
comparison
equal deleted inserted replaced
96553:156404854aad 96554:e1cdfeed8fea
3842 { 3842 {
3843 Lisp_Object bg = Fframe_parameter (frame, Qbackground_color); 3843 Lisp_Object bg = Fframe_parameter (frame, Qbackground_color);
3844 3844
3845 /* Set tip_frame here, so that */ 3845 /* Set tip_frame here, so that */
3846 tip_frame = frame; 3846 tip_frame = frame;
3847 call1 (Qface_set_after_frame_default, frame); 3847 call2 (Qface_set_after_frame_default, frame, Qnil);
3848 3848
3849 if (!EQ (bg, Fframe_parameter (frame, Qbackground_color))) 3849 if (!EQ (bg, Fframe_parameter (frame, Qbackground_color)))
3850 Fmodify_frame_parameters (frame, Fcons (Fcons (Qbackground_color, bg), 3850 Fmodify_frame_parameters (frame, Fcons (Fcons (Qbackground_color, bg),
3851 Qnil)); 3851 Qnil));
3852 } 3852 }