Mercurial > emacs

comparison src/w32fns.c @ 96555:0813ecd85cb5

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:31:06 +0000
parents 187f69369145
children 5418ff994d7c
comparison
equal deleted inserted replaced
96554:e1cdfeed8fea 96555:0813ecd85cb5
5610 { 5610 {
5611 Lisp_Object bg = Fframe_parameter (frame, Qbackground_color); 5611 Lisp_Object bg = Fframe_parameter (frame, Qbackground_color);
5612 5612
5613 /* Set tip_frame here, so that */ 5613 /* Set tip_frame here, so that */
5614 tip_frame = frame; 5614 tip_frame = frame;
5615 call1 (Qface_set_after_frame_default, frame); 5615 call2 (Qface_set_after_frame_default, frame, Qnil);
5616 5616
5617 if (!EQ (bg, Fframe_parameter (frame, Qbackground_color))) 5617 if (!EQ (bg, Fframe_parameter (frame, Qbackground_color)))
5618 Fmodify_frame_parameters (frame, Fcons (Fcons (Qbackground_color, bg), 5618 Fmodify_frame_parameters (frame, Fcons (Fcons (Qbackground_color, bg),
5619 Qnil)); 5619 Qnil));
5620 } 5620 }