Mercurial > emacs
changeset 91174:6bee416e4d4e
(font_gstring_produce): Delete it.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Mon, 03 Dec 2007 14:40:32 +0000 |
| parents | d073992bc6f3 |
| children | bef5150c5492 |
| files | src/font.c |
| diffstat | 1 files changed, 0 insertions(+), 57 deletions(-) [+] |
line wrap: on
line diff
--- a/src/font.c Mon Dec 03 14:39:51 2007 +0000 +++ b/src/font.c Mon Dec 03 14:40:32 2007 +0000 @@ -1868,63 +1868,6 @@ return cmp->font; } -int -font_gstring_produce (old, from, to, new, idx, code, n) - Lisp_Object old; - int from, to; - Lisp_Object new; - int idx; - unsigned *code; - int n; -{ - Lisp_Object min_idx, max_idx; - int i; - - if (idx + n > ASIZE (new)) - return -1; - if (from == to) - { - if (from == 0) - { - min_idx = make_number (0); - max_idx = make_number (1); - } - else - { - min_idx = AREF (AREF (old, from - 1), 0); - max_idx = AREF (AREF (old, from - 1), 1); - } - } - else if (from + 1 == to) - { - min_idx = AREF (AREF (old, from), 0); - max_idx = AREF (AREF (old, from), 1); - } - else - { - int min_idx_i = XINT (AREF (AREF (old, from), 0)); - int max_idx_i = XINT (AREF (AREF (old, from), 1)); - - for (i = from + 1; i < to; i++) - { - if (min_idx_i > XINT (AREF (AREF (old, i), 0))) - min_idx_i = XINT (AREF (AREF (old, i), 0)); - if (max_idx_i < XINT (AREF (AREF (old, i), 1))) - max_idx_i = XINT (AREF (AREF (old, i), 1)); - } - min_idx = make_number (min_idx_i); - max_idx = make_number (max_idx_i); - } - - for (i = 0; i < n; i++) - { - ASET (AREF (new, idx + i), 0, min_idx); - ASET (AREF (new, idx + i), 1, max_idx); - ASET (AREF (new, idx + i), 2, make_number (code[i])); - } - - return 0; -} /* Font sorting */