Mercurial > emacs

diff src/font.c @ 103229:499a2bc2b600

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Ffont_spec): Check arguments.
author Kenichi Handa <handa@m17n.org>
date Fri, 15 May 2009 02:49:07 +0000
parents cb1886d1427b
children 94e71fa6e9ac
line wrap: on
line diff
--- a/src/font.c	Thu May 14 21:37:02 2009 +0000
+++ b/src/font.c	Fri May 15 02:49:07 2009 +0000
@@ -4007,7 +4007,12 @@
 
   for (i = 0; i < nargs; i += 2)
     {
-      Lisp_Object key = args[i], val = args[i + 1];
+      Lisp_Object key = args[i], val;
+
+      CHECK_SYMBOL (key);
+      if (i + 1 >= nargs)
+	error ("No value for key `%s'", SDATA (SYMBOL_NAME (key)));
+      val = args[i + 1];
 
       if (EQ (key, QCname))
 	{