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

(ftfont_has_char): If the arg FONT is a font-object,

Browse Source 
directly use GT_Get_Char_index.
This commit is contained in:
Kenichi Handa 2009-01-27 05:10:08 +00:00
parent b0c25608cd
commit 7179ce7b35
2 changed files with 26 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/ChangeLog
View File

@ -1,3 +1,13 @@
2009-01-27 Kenichi Handa <handa@m17n.org>
* ftfont.c (ftfont_has_char): If the arg FONT is a font-object,
directly use GT_Get_Char_index.
* xftfont.c (struct xftfont_info): New member `index'.
* fontset.c (font_for_char): Use assq_no_quit, not assoc_no_quit.
(Ffontset_font): Adjusted for the change of fontset entry.
2009-01-26 Kenichi Handa <handa@m17n.org>
* fontset.c (fontset_find_font): Fix handling of non-cons return

21
src/ftfont.c
View File

@ -62,7 +62,7 @@ struct ftfont_info
{
struct font font;
#ifdef HAVE_LIBOTF
/* The following three members must be here in this order to be
/* The following four members must be here in this order to be
compatible with struct xftfont_info (in xftfont.c). */
int maybe_otf; /* Flag to tell if this may be OTF or not. */
OTF *otf;
@ -1189,13 +1189,24 @@ ftfont_close (f, font)
}
static int
ftfont_has_char (entity, c)
Lisp_Object entity;
ftfont_has_char (font, c)
Lisp_Object font;
int c;
{
FcCharSet *charset = ftfont_get_fc_charset (entity);
if (FONT_ENTITY_P (font))
{
FcCharSet *charset = ftfont_get_fc_charset (font);
return (FcCharSetHasChar (charset, c) == FcTrue);
return (FcCharSetHasChar (charset, c) == FcTrue);
}
else
{
struct ftfont_info *ftfont_info;
ftfont_info = (struct ftfont_info *) XFONT_OBJECT (font);
return (FT_Get_Char_Index (ftfont_info->ft_size->face, (FT_ULong) c)
!= 0);
}
}
static unsigned