# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1211713252 0
# Node ID e3e5f8759ca5d9b3a36648aa5947de866a5b1523
# Parent  2b9951d2c5fa68698b2d10b4559a59e135531b31
(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 -r 2b9951d2c5fa -r e3e5f8759ca5 src/font.c
--- a/src/font.c	Sat May 24 23:11:30 2008 +0000
+++ b/src/font.c	Sun May 25 11:00:52 2008 +0000
@@ -1608,6 +1608,8 @@
 
 /* OTF handler */
 
+#if 0
+
 #define LGSTRING_HEADER_SIZE 6
 #define LGSTRING_GLYPH_SIZE 8
 
@@ -1843,7 +1845,6 @@
     error ("OTF spec too long");
 }
 
-
 Lisp_Object
 font_otf_DeviceTable (device_table)
      OTF_DeviceTable *device_table;
@@ -1898,8 +1899,8 @@
     }
   return val;
 }
-
 #endif	/* HAVE_LIBOTF */
+#endif	/* 0 */
 
 /* G-string (glyph string) handler */
 
@@ -3993,6 +3994,8 @@
   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 @@
     }
   return Fnreverse (alternates);
 }
-
+#endif	/* 0 */
 
 #ifdef FONT_DEBUG
 
@@ -4488,10 +4491,12 @@
   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 @@
   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);