Mercurial > emacs
comparison src/font.c @ 91240:b2febf77e71c
(Ffont_get): Fix arguments to Fassoc.
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Tue, 18 Dec 2007 02:26:27 +0000 |
parents | e3ba579aab1f |
children | 217eabc2db11 |
comparison
equal
deleted
inserted
replaced
91239:2fcaae6177a5 | 91240:b2febf77e71c |
---|---|
3025 idx = get_font_prop_index (key, 0); | 3025 idx = get_font_prop_index (key, 0); |
3026 if (idx < FONT_EXTRA_INDEX) | 3026 if (idx < FONT_EXTRA_INDEX) |
3027 return AREF (font, idx); | 3027 return AREF (font, idx); |
3028 if (FONT_ENTITY_P (font)) | 3028 if (FONT_ENTITY_P (font)) |
3029 return Qnil; | 3029 return Qnil; |
3030 return Fcdr (Fassoc (AREF (font, FONT_EXTRA_INDEX), key)); | 3030 return Fcdr (Fassoc (key, AREF (font, FONT_EXTRA_INDEX))); |
3031 } | 3031 } |
3032 | 3032 |
3033 | 3033 |
3034 DEFUN ("font-put", Ffont_put, Sfont_put, 3, 3, 0, | 3034 DEFUN ("font-put", Ffont_put, Sfont_put, 3, 3, 0, |
3035 doc: /* Set one property of FONT-SPEC: give property KEY value VALUE. */) | 3035 doc: /* Set one property of FONT-SPEC: give property KEY value VALUE. */) |