Mercurial > emacs
comparison src/font.c @ 103229:499a2bc2b600
(Ffont_spec): Check arguments.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Fri, 15 May 2009 02:49:07 +0000 |
| parents | cb1886d1427b |
| children | 94e71fa6e9ac |
comparison
equal
deleted
inserted
replaced
| 103228:7300fabaa28b | 103229:499a2bc2b600 |
|---|---|
| 4005 Lisp_Object spec = font_make_spec (); | 4005 Lisp_Object spec = font_make_spec (); |
| 4006 int i; | 4006 int i; |
| 4007 | 4007 |
| 4008 for (i = 0; i < nargs; i += 2) | 4008 for (i = 0; i < nargs; i += 2) |
| 4009 { | 4009 { |
| 4010 Lisp_Object key = args[i], val = args[i + 1]; | 4010 Lisp_Object key = args[i], val; |
| 4011 | |
| 4012 CHECK_SYMBOL (key); | |
| 4013 if (i + 1 >= nargs) | |
| 4014 error ("No value for key `%s'", SDATA (SYMBOL_NAME (key))); | |
| 4015 val = args[i + 1]; | |
| 4011 | 4016 |
| 4012 if (EQ (key, QCname)) | 4017 if (EQ (key, QCname)) |
| 4013 { | 4018 { |
| 4014 CHECK_STRING (val); | 4019 CHECK_STRING (val); |
| 4015 font_parse_name ((char *) SDATA (val), spec); | 4020 font_parse_name ((char *) SDATA (val), spec); |