(check_otf_features): Define it regardless of

HAVE_LIBOTF.

diff --git a/src/font.c b/src/font.c
index 1eedbe04bbc59be5067affb8f265c2d757a9fdb6..db11387b2f4c33b0e11645a16a4f90d0af5bb4bf 100644 (file)
--- a/src/font.c
+++ b/src/font.c
@@ -1480,6 +1480,33 @@ check_gstring (gstring)
 \f
 /* OTF handler */
 
+static void
+check_otf_features (otf_features)
+     Lisp_Object otf_features;
+{
+  Lisp_Object val, elt;
+
+  CHECK_CONS (otf_features);
+  CHECK_SYMBOL (XCAR (otf_features));
+  otf_features = XCDR (otf_features);
+  CHECK_CONS (otf_features);
+  CHECK_SYMBOL (XCAR (otf_features));
+  otf_features = XCDR (otf_features);
+  for (val = Fcar (otf_features); ! NILP (val);  val = Fcdr (val))
+    {
+      CHECK_SYMBOL (Fcar (val));
+      if (SBYTES (SYMBOL_NAME (XCAR (val))) > 4)
+       error ("Invalid OTF GSUB feature: %s", SYMBOL_NAME (XCAR (val)));
+    }
+  otf_features = XCDR (otf_features);
+  for (val = Fcar (otf_features); ! NILP (val);  val = Fcdr (val))
+    {
+      CHECK_SYMBOL (Fcar (val));
+      if (SBYTES (SYMBOL_NAME (XCAR (val))) > 4)
+       error ("Invalid OTF GPOS feature: %s", SYMBOL_NAME (XCAR (val)));
+    }
+}
+
 #ifdef HAVE_LIBOTF
 #include <otf.h>
 
@@ -1657,33 +1684,6 @@ adjust_anchor (struct font *font, OTF_Anchor *anchor,
     }
 }
 
-static void
-check_otf_features (otf_features)
-     Lisp_Object otf_features;
-{
-  Lisp_Object val, elt;
-
-  CHECK_CONS (otf_features);
-  CHECK_SYMBOL (XCAR (otf_features));
-  otf_features = XCDR (otf_features);
-  CHECK_CONS (otf_features);
-  CHECK_SYMBOL (XCAR (otf_features));
-  otf_features = XCDR (otf_features);
-  for (val = Fcar (otf_features); ! NILP (val);  val = Fcdr (val))
-    {
-      CHECK_SYMBOL (Fcar (val));
-      if (SBYTES (SYMBOL_NAME (XCAR (val))) > 4)
-       error ("Invalid OTF GSUB feature: %s", SYMBOL_NAME (XCAR (val)));
-    }
-  otf_features = XCDR (otf_features);
-  for (val = Fcar (otf_features); ! NILP (val);  val = Fcdr (val))
-    {
-      CHECK_SYMBOL (Fcar (val));
-      if (SBYTES (SYMBOL_NAME (XCAR (val))) > 4)
-       error ("Invalid OTF GPOS feature: %s", SYMBOL_NAME (XCAR (val)));
-    }
-}
-
 Lisp_Object
 font_otf_DeviceTable (device_table)
      OTF_DeviceTable *device_table;