Mercurial > emacs

comparison src/font.c @ 91240:b2febf77e71c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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. */)