From 6a3dadd2c2a658e30e86d994eb5d5f5950cb7a4d Mon Sep 17 00:00:00 2001
From: Kenichi Handa <handa@m17n.org>
Date: Sun, 25 May 2008 11:00:52 +0000
Subject: [PATCH] (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.

---
 src/font.c | 15 +++++++++++----
 1 file changed, 11 insertions(+), 4 deletions(-)

diff --git a/src/font.c b/src/font.c
index cd1320c2efa..c869c812c80 100644
--- 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);
-- 
2.39.2