Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
b840b299
Commit
b840b299
authored
Apr 16, 2009
by
Kenichi Handa
Browse files
(xftfont_has_char): Special handling of `ja' and `ko' adstyle.
parent
d7782105
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
12 additions
and
0 deletions
+12
-0
src/xftfont.c
src/xftfont.c
+12
-0
No files found.
src/xftfont.c
View file @
b840b299
...
...
@@ -467,16 +467,28 @@ xftfont_done_face (f, face)
}
}
extern
Lisp_Object
Qja
,
Qko
;
static
int
xftfont_has_char
(
font
,
c
)
Lisp_Object
font
;
int
c
;
{
struct
xftfont_info
*
xftfont_info
;
struct
charset
*
cs
=
NULL
;
if
(
FONT_ENTITY_P
(
font
))
return
ftfont_driver
.
has_char
(
font
,
c
);
if
(
EQ
(
AREF
(
font
,
FONT_ADSTYLE_INDEX
),
Qja
)
&&
charset_jisx0208
>=
0
)
cs
=
CHARSET_FROM_ID
(
charset_jisx0208
);
else
if
(
EQ
(
AREF
(
font
,
FONT_ADSTYLE_INDEX
),
Qko
)
&&
charset_ksc5601
>=
0
)
cs
=
CHARSET_FROM_ID
(
charset_ksc5601
);
if
(
cs
)
return
(
ENCODE_CHAR
(
cs
,
c
)
!=
CHARSET_INVALID_CODE
(
cs
));
xftfont_info
=
(
struct
xftfont_info
*
)
XFONT_OBJECT
(
font
);
return
(
XftCharExists
(
xftfont_info
->
display
,
xftfont_info
->
xftfont
,
(
FcChar32
)
c
)
==
FcTrue
);
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment