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

xfns.c (Fx_select_font): Remember last font selected in

Browse Source 
x_last_font_name and use that the next time. Also try the frame
parameter font-parameter as default to the font dialog.
This commit is contained in:
Jan Djärv 2009-07-10 17:07:36 +00:00
parent ee5a613e68
commit e0ab5fcf04
2 changed files with 27 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/ChangeLog
View File

@ -1,3 +1,9 @@
2009-07-10 Jan Djärv <jan.h.d@swipnet.se>
* xfns.c (Fx_select_font): Remember last font selected in
x_last_font_name and use that the next time. Also try the frame
parameter font-parameter as default to the font dialog.
2009-07-10 Kenichi Handa <handa@m17n.org>
* xftfont.c (xftfont_open): Fix typo: FC_RGBA->FC_HINT_STYLE.

28
src/xfns.c
View File

@ -208,6 +208,9 @@ extern Lisp_Object Vwindow_system_version;
int image_cache_refcount, dpyinfo_refcount;
#endif
#if defined (USE_GTK) && defined (HAVE_FREETYPE)
char *x_last_font_name;
#endif
/* Error if we are not connected to X. */
@ -5629,6 +5632,9 @@ If FRAME is omitted or nil, it defaults to the selected frame. */)
FRAME_PTR f = check_x_frame (frame);
char *name;
Lisp_Object default_font, font = Qnil;
Lisp_Object font_param;
char *default_name = NULL;
struct gcpro gcpro1;
int count = SPECPDL_INDEX ();
check_x ();
@ -5642,21 +5648,28 @@ If FRAME is omitted or nil, it defaults to the selected frame. */)
BLOCK_INPUT;
XSETFONT (default_font, FRAME_FONT (f));
if (FONTP (default_font))
GCPRO1(font_param);
font_param = Fframe_parameter (frame, Qfont_param);
if (x_last_font_name != NULL)
default_name = x_last_font_name;
else if (STRINGP (font_param))
default_name = SDATA (font_param);
else if (FONTP (default_font))
{
char *default_name = alloca (256);
XSETFONT (default_font, FRAME_FONT (f));
default_name = alloca (256);
if (font_unparse_gtkname (default_font, f, default_name, 256) < 0)
default_name = NULL;
name = xg_get_font_name (f, default_name);
}
else
name = xg_get_font_name (f, NULL);
name = xg_get_font_name (f, default_name);
if (name)
{
font = build_string (name);
xfree (name);
g_free (x_last_font_name);
x_last_font_name = name;
}
UNBLOCK_INPUT;
@ -6028,6 +6041,7 @@ the tool bar buttons. */);
#if defined (USE_GTK) && defined (HAVE_FREETYPE)
defsubr (&Sx_select_font);
x_last_font_name = NULL;
#endif
}