Mercurial > emacs
diff src/ftfont.c @ 107237:f24a9a68524d
Fix Myanmar OTF support
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Fri, 26 Feb 2010 21:40:46 +0900 |
parents | 1d1d5d9bd884 |
children | 39d09d6f8dbc |
line wrap: on
line diff
--- a/src/ftfont.c Fri Feb 26 10:22:23 2010 +0900 +++ b/src/ftfont.c Fri Feb 26 21:40:46 2010 +0900 @@ -663,19 +663,19 @@ else spec->script_tag = 0x44464C54; /* "DFLT" */ otf_spec = XCDR (otf_spec); - val = XCAR (otf_spec); - if (! NILP (val)) - OTF_SYM_TAG (val, spec->langsys_tag); - else - spec->langsys_tag = 0; + spec->langsys_tag = 0; + if (! NILP (otf_spec)) + { + val = XCAR (otf_spec); + if (! NILP (val)) + OTF_SYM_TAG (val, spec->langsys_tag); + otf_spec = XCDR (otf_spec); + } spec->nfeatures[0] = spec->nfeatures[1] = 0; - for (i = 0; i < 2; i++) + for (i = 0; i < 2 && ! NILP (otf_spec); i++, otf_spec = XCDR (otf_spec)) { Lisp_Object len; - otf_spec = XCDR (otf_spec); - if (NILP (otf_spec)) - break; val = XCAR (otf_spec); if (NILP (val)) continue;