comparison src/fontset.c @ 89607:9090f7eba02c

(Fnew_fontset): Check NAME more rigidly.
author Kenichi Handa <handa@m17n.org>
date Fri, 24 Oct 2003 00:44:48 +0000
parents 7f9f2d025eee
children 3aa74296be55
comparison
equal deleted inserted replaced
89606:bc6493a5b7ab 89607:9090f7eba02c
1402 { 1402 {
1403 Lisp_Object elt, script; 1403 Lisp_Object elt, script;
1404 1404
1405 elt = Fcar (fontlist); 1405 elt = Fcar (fontlist);
1406 script = Fcar (elt); 1406 script = Fcar (elt);
1407 for (elt = Fcdr (elt); ! NILP (elt); elt = Fcdr (elt)) 1407 elt = Fcdr (elt);
1408 Fset_fontset_font (name, script, Fcar (elt), Qnil, Qappend); 1408 if (CONSP (elt) && (NILP (XCDR (elt)) || CONSP (XCDR (elt))))
1409 for (; CONSP (elt); elt = XCDR (elt))
1410 Fset_fontset_font (name, script, XCAR (elt), Qnil, Qappend);
1411 else
1412 Fset_fontset_font (name, script, elt, Qnil, Qappend);
1409 } 1413 }
1410 return name; 1414 return name;
1411 } 1415 }
1412 1416
1413 1417