mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-17 17:58:46 +00:00
Code Issues Releases Activity

Always suggest system font because .emacs may not have been read yet.

Browse Source 
* xfns.c (x_default_font_parameter): Call xsettings_get_system_font.

* xsettings.h: Declare xsettings_get_system_font.

* xsettings.c (xsettings_get_system_font): New function.
(init_gconf): No use initiating gconf unless we have Xft also.
(syms_of_xsettings): Only provide system-font-setting if HAVE_XFT and
HAVE_GCONF.
This commit is contained in:
Jan Djärv 2009-11-20 09:44:42 +00:00
parent 4a8e097d4e
commit 0d1d0d26a9
4 changed files with 31 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/ChangeLog
View File

@ -1,5 +1,14 @@
2009-11-20 Jan Djärv <jan.h.d@swipnet.se>
* xfns.c (x_default_font_parameter): Call xsettings_get_system_font.
* xsettings.h: Declare xsettings_get_system_font.
* xsettings.c (xsettings_get_system_font): New function.
(init_gconf): No use initiating gconf unless we have Xft also.
(syms_of_xsettings): Only provide system-font-setting if HAVE_XFT and
HAVE_GCONF.
* gtkutil.c (xg_modify_menubar_widgets): If menubar is totally empty
add a blank entry so it doesn't collapse into nothing.

17
src/xfns.c
View File

@ -3031,14 +3031,21 @@ x_default_font_parameter (f, parms)
Lisp_Object font;
int got_from_gconf = 0;
if (EQ (font_param, Qunbound))
{
font_param = Ffont_get_system_font();
got_from_gconf = !NILP (font_param);
}
font_param = Qnil;
if (NILP (font_param))
{
/* System font takes precedendce over X resources. We must suggest this
regardless of font-use-system-font because .emacs may not have been
read yet. */
const char *system_font = xsettings_get_system_font ();
if (system_font) font_param = make_string (system_font,
strlen (system_font));
}
font = !NILP (font_param) ? font_param
: x_get_arg (dpyinfo, parms, Qfont, "font", "Font", RES_TYPE_STRING);
if (! STRINGP (font))
{
char *names[]

13
src/xsettings.c
View File

@ -498,7 +498,7 @@ xft_settings_event (dpyinfo, event)
static void
init_gconf ()
{
#ifdef HAVE_GCONF
#if defined (HAVE_GCONF) && defined (HAVE_XFT)
int i;
char *s;
/* Should be enough, this is called at startup */
@ -556,7 +556,7 @@ init_gconf ()
init_sigio (i);
#endif /* ! defined (SIGIO) */
}
#endif /* HAVE_GCONF */
#endif /* HAVE_GCONF && HAVE_XFT */
}
static void
@ -605,6 +605,11 @@ xsettings_initialize (dpyinfo)
init_xfd_settings (dpyinfo);
}
const char *
xsettings_get_system_font ()
{
return current_mono_font;
}
DEFUN ("font-get-system-font", Ffont_get_system_font, Sfont_get_system_font,
0, 0, 0,
@ -635,10 +640,10 @@ syms_of_xsettings ()
doc: /* *Non-nil means to use the system defined font. */);
use_system_font = 0;
#ifdef HAVE_XFT
Fprovide (intern_c_string ("font-render-setting"), Qnil);
#ifdef HAVE_GCONF
Fprovide (intern_c_string ("system-font-setting"), Qnil);
#endif
#ifdef HAVE_XFT
Fprovide (intern_c_string ("font-render-setting"), Qnil);
#endif
}

1
src/xsettings.h
View File

@ -24,6 +24,7 @@ EXFUN (Ffont_get_system_font, 0);
extern void xsettings_initialize P_ ((struct x_display_info *dpyinfo));
extern void xft_settings_event P_ ((struct x_display_info *dpyinfo,
XEvent *));
extern const char *xsettings_get_system_font P_ ((void));
#endif /* XSETTINGS_H */