Mercurial > emacs
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 |