Mercurial > emacs
changeset 21548:5d1f1ba38043
(x_find_ccl_program): New function.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Wed, 15 Apr 1998 07:12:49 +0000 |
| parents | b2295127eff0 |
| children | 3b63301ea296 |
| files | src/xterm.c |
| diffstat | 1 files changed, 42 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/src/xterm.c Wed Apr 15 07:12:49 1998 +0000 +++ b/src/xterm.c Wed Apr 15 07:12:49 1998 +0000 @@ -6782,6 +6782,48 @@ return NULL; } +/* Find a CCL program for a font specified by FONTP, and set the memer + `encoder' of the structure. */ + +void +x_find_ccl_program (fontp) + struct font_info *fontp; +{ + extern Lisp_Object Vfont_ccl_encoder_alist, Vccl_program_table; + extern Lisp_Object Qccl_program_idx; + extern Lisp_Object resolve_symbol_ccl_program (); + Lisp_Object list, elt, ccl_prog, ccl_id; + + for (list = Vfont_ccl_encoder_alist; CONSP (list); list = XCONS (list)->cdr) + { + elt = XCONS (list)->car; + if (CONSP (elt) + && STRINGP (XCONS (elt)->car) + && (fast_c_string_match_ignore_case (XCONS (elt)->car, fontp->name) + >= 0)) + { + if (SYMBOLP (XCONS (elt)->cdr) && + (!NILP (ccl_id = Fget (XCONS (elt)->cdr, Qccl_program_idx)))) + { + ccl_prog = XVECTOR (Vccl_program_table)->contents[XUINT (ccl_id)]; + if (!CONSP (ccl_prog)) continue; + ccl_prog = XCONS (ccl_prog)->cdr; + } + else + { + ccl_prog = XCONS (elt)->cdr; + if (!VECTORP (ccl_prog)) continue; + } + + fontp->font_encoder + = (struct ccl_program *) xmalloc (sizeof (struct ccl_program)); + setup_ccl_program (fontp->font_encoder, + resolve_symbol_ccl_program (ccl_prog)); + break; + } + } +} + /* Initialization. */