(LGSTRING_HEADER_SIZE, LGSTRING_GLYPH_SIZE)

(check_gstring, check_otf_features, otf_list, otf_tag_symbol)
(otf_open, font_otf_capability, generate_otf_features)
(font_otf_DeviceTable, font_otf_ValueRecord, font_otf_Anchor):
Commented out by surrounding "#if 0" and "#endif" for the moment.
(Ffont_drive_otf, Ffont_otf_alternates): Likewise.
(syms_of_font): Codes for accessing above commented out.

diff --git a/src/font.c b/src/font.c
index cd1320c2efa8d1ff7306626ba073429888491080..c869c812c8054dc6315be9e7d7ed67111f565f6d 100644 (file)
--- a/src/font.c
+++ b/src/font.c
@@ -1608,6 +1608,8 @@ font_parse_family_registry (family, registry, font_spec)
 
 /* OTF handler */
 
+#if 0
+
 #define LGSTRING_HEADER_SIZE 6
 #define LGSTRING_GLYPH_SIZE 8
 
@@ -1843,7 +1845,6 @@ generate_otf_features (spec, features)
     error ("OTF spec too long");
 }
 
-
 Lisp_Object
 font_otf_DeviceTable (device_table)
      OTF_DeviceTable *device_table;
@@ -1898,8 +1899,8 @@ font_otf_Anchor (anchor)
     }
   return val;
 }
-
 #endif /* HAVE_LIBOTF */
+#endif /* 0 */
 
 /* G-string (glyph string) handler */
 
@@ -3993,6 +3994,8 @@ FONT-OBJECT.  */)
   return to;
 }
 
+#if 0
+
 DEFUN ("font-drive-otf", Ffont_drive_otf, Sfont_drive_otf, 6, 6, 0,
        doc: /* Apply OpenType features on glyph-string GSTRING-IN.
 OTF-FEATURES specifies which features to apply in this format:
@@ -4112,7 +4115,7 @@ corresponding character.  */)
     }
   return Fnreverse (alternates);
 }
-
+#endif /* 0 */
 
 #ifdef FONT_DEBUG
 
@@ -4488,10 +4491,12 @@ syms_of_font ()
   staticpro (&scratch_font_prefer);
   scratch_font_prefer = Ffont_spec (0, NULL);
 
+#if 0
 #ifdef HAVE_LIBOTF
   staticpro (&otf_list);
   otf_list = Qnil;
-#endif
+#endif /* HAVE_LIBOTF */
+#endif /* 0 */
 
   defsubr (&Sfontp);
   defsubr (&Sfont_spec);
@@ -4505,8 +4510,10 @@ syms_of_font ()
   defsubr (&Sfont_make_gstring);
   defsubr (&Sfont_fill_gstring);
   defsubr (&Sfont_shape_text);
+#if 0
   defsubr (&Sfont_drive_otf);
   defsubr (&Sfont_otf_alternates);
+#endif /* 0 */
 
 #ifdef FONT_DEBUG
   defsubr (&Sopen_font);