* fontset.c (fontset_get_font_group):

* font.c (font_check_otf): Specify argument types.

3 files changed, 7 insertions, 2 deletions

diff --git a/src/ChangeLog b/src/ChangeLog
index a03f3547843..8470c1ffcfb 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -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 --git a/src/font.c b/src/font.c
index 8988b2193bd..91bb84239ae 100644
--- a/src/font.c
+++ b/src/font.c
@@ -2404,7 +2404,7 @@ font_check_otf_features (script, langsys, features, table)
 /* 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 --git a/src/fontset.c b/src/fontset.c
index 5dbbadbe042..caa732b6bc6 100644
--- a/src/fontset.c
+++ b/src/fontset.c
@@ -459,7 +459,7 @@ reorder_font_vector (font_group, font)
 }
 
 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;