mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-15 09:47:20 +00:00
Code Issues Releases Activity

(font_for_char): Use assq_no_quit, not assoc_no_quit.

Browse Source 
(Ffontset_font): Adjusted for the change of fontset entry.
This commit is contained in:
Kenichi Handa 2009-01-27 05:07:04 +00:00
parent 6b0c98f550
commit a124bbb629
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
src/fontset.c
View File

@ -898,7 +898,7 @@ face_for_char (f, face, c, pos, object)
{
Lisp_Object val;
val = assoc_no_quit (charset, Vfont_encoding_charset_alist);
val = assq_no_quit (charset, Vfont_encoding_charset_alist);
if (CONSP (val) && CHARSETP (XCDR (val)))
charset = XCDR (val);
id = XINT (CHARSET_SYMBOL_ID (charset));
@ -1955,6 +1955,8 @@ patterns. */)
if (VECTORP (elt))
for (j = 0; j < ASIZE (elt); j++)
{
Lisp_Object family, registry;
val = AREF (elt, j);
repertory = AREF (val, 1);
if (INTEGERP (repertory))
@ -1970,7 +1972,14 @@ patterns. */)
continue;
}
val = AREF (val, 0);
val = Fcons (AREF (val, 0), AREF (val, 5));
/* VAL is a FONT-SPEC */
family = AREF (val, FONT_FAMILY_INDEX);
if (! NILP (family))
family = SYMBOL_NAME (family);
registry = AREF (val, FONT_REGISTRY_INDEX);
if (! NILP (registry))
registry = SYMBOL_NAME (registry);
val = Fcons (family, registry);
if (NILP (all))
return val;
list = Fcons (val, list);