mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-11 09:20:51 +00:00
Code Issues Releases Activity

* w32fns.c (x_create_tip_frame): Prevent default foreground color for

Browse Source 
new frames overriding foreground for tooltips.  Based on similar patch
  from Martin Rudalics <rudalics@gmx.at>.  (Bug#1032)
This commit is contained in:
Juanma Barranquero 2008-10-30 01:27:06 +00:00
parent 48238d1d45
commit 601a9cf1e3
2 changed files with 16 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/ChangeLog
View File

@ -1,3 +1,9 @@
2008-10-30 Juanma Barranquero <lekktu@gmail.com>
* w32fns.c (x_create_tip_frame): Prevent default foreground color for
new frames overriding foreground for tooltips. Based on similar patch
from Martin Rudalics <rudalics@gmx.at>. (Bug#1032)
2008-10-29 Chong Yidong <cyd@stupidchicken.com>
* emacs.c (Fdaemon_initialized): Initialize nfd.
@ -37,7 +43,7 @@
(main): Don't set is_daemon.
(IS_DAEMON): New macro.
(Fdaemonp, Fdaemon_initialized): Use it.
(Fdaemon_initialized): Wrtie a char into the pipe to make sure the
(Fdaemon_initialized): Write a char into the pipe to make sure the
parent exits.
(syms_of_emacs): Explicitly initialize daemon_pipe[1].

12
src/w32fns.c
View File

@ -4364,7 +4364,7 @@ This function is an internal primitive--use `make-frame' instead. */)
x_default_parameter (f, parameters, Qborder_width, make_number (2),
"borderWidth", "BorderWidth", RES_TYPE_NUMBER);
/* We recognize either internalBorderWidth or internalBorder
/* We recognize either internalBorderWidth or internalBorder
(which is what xterm calls it). */
if (NILP (Fassq (Qinternal_border_width, parameters)))
{
@ -5534,14 +5534,20 @@ x_create_tip_frame (dpyinfo, parms, text)
of the tooltip frame appear in pink. Prevent this. */
{
Lisp_Object bg = Fframe_parameter (frame, Qbackground_color);
Lisp_Object fg = Fframe_parameter (frame, Qforeground_color);
Lisp_Object colors = Qnil;
/* Set tip_frame here, so that */
tip_frame = frame;
call2 (Qface_set_after_frame_default, frame, Qnil);
if (!EQ (bg, Fframe_parameter (frame, Qbackground_color)))
Fmodify_frame_parameters (frame, Fcons (Fcons (Qbackground_color, bg),
Qnil));
colors = Fcons (Fcons (Qbackground_color, bg), colors);
if (!EQ (fg, Fframe_parameter (frame, Qforeground_color)))
colors = Fcons (Fcons (Qforeground_color, fg), colors);
if (!NILP (colors))
Fmodify_frame_parameters (frame, colors);
}
f->no_split = 1;