# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1215609850 0
# Node ID 3de01ebe30b7222726608e5c1ba3340dce943623
# Parent  b4b3a97faee12a66e8cffd0d70b762f540fb69be
* fontset.c (fontset_get_font_group):
* font.c (font_check_otf): Specify argument types.

diff -r b4b3a97faee1 -r 3de01ebe30b7 src/ChangeLog
--- a/src/ChangeLog	Wed Jul 09 13:06:14 2008 +0000
+++ b/src/ChangeLog	Wed Jul 09 13:24:10 2008 +0000
@@ -1,3 +1,8 @@
+2008-07-09  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+	* fontset.c (fontset_get_font_group):
+	* font.c (font_check_otf): Specify argument types.
+
 2008-07-09  Kenichi Handa  <handa@m17n.org>
 
 	* coding.c (detect_coding_utf_8): Set detect_info->found only when
diff -r b4b3a97faee1 -r 3de01ebe30b7 src/font.c
--- a/src/font.c	Wed Jul 09 13:06:14 2008 +0000
+++ b/src/font.c	Wed Jul 09 13:24:10 2008 +0000
@@ -2404,7 +2404,7 @@
 /* Check if OTF_CAPABILITY satisfies SPEC (otf-spec).  */
 
 static int
-font_check_otf (spec, otf_capability)
+font_check_otf (Lisp_Object spec, Lisp_Object otf_capability)
 {
   Lisp_Object script, langsys = Qnil, gsub = Qnil, gpos = Qnil;
 
diff -r b4b3a97faee1 -r 3de01ebe30b7 src/fontset.c
--- a/src/fontset.c	Wed Jul 09 13:06:14 2008 +0000
+++ b/src/fontset.c	Wed Jul 09 13:24:10 2008 +0000
@@ -459,7 +459,7 @@
 }
 
 static Lisp_Object
-fontset_get_font_group (fontset, c)
+fontset_get_font_group (Lisp_Object fontset, int c)
 {
   Lisp_Object font_group;
   Lisp_Object base_fontset;