diff options
| author | Kenichi Handa <handa@m17n.org> | 2006-07-03 03:49:58 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 2006-07-03 03:49:58 +0000 |
| commit | 5239ccf54874aa036ae8d1400d4787cde541666c (patch) | |
| tree | 30c25b03df8f46000226e1c436e9aae845c433fa /src/ftfont.c | |
| parent | 3aeeff061b3831f63d8ee4d218634ace6297adea (diff) | |
| download | emacs-5239ccf54874aa036ae8d1400d4787cde541666c.tar.gz | |
(ftfont_list): Handling of QCname fixed.
Diffstat (limited to 'src/ftfont.c')
| -rw-r--r-- | src/ftfont.c | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/src/ftfont.c b/src/ftfont.c index ecbe425140a..82ea697b92e 100644 --- a/src/ftfont.c +++ b/src/ftfont.c @@ -355,12 +355,9 @@ ftfont_list (frame, spec) Lisp_Object script = Qnil; tmp = assq_no_quit (QCname, extra); - if (CONSP (tmp)) - { - font_name = XCDR (tmp); - if (SDATA (font_name)[0] != ':') - return val; - } + if (CONSP (tmp) && STRINGP (XCDR (tmp)) + && SDATA (XCDR (tmp))[0] == ':') + font_name = XCDR (tmp); tmp = assq_no_quit (QCotf, extra); if (CONSP (tmp) && SYMBOLP (XCDR (tmp))) { |