(struct Lisp_Coding_System): Add `enable_composition'.

(CODING_SYSTEM_COMPOSITE): New macro.
(XCODING_SYSTEM_COMPOSITE): New macro.

diff --git a/src/file-coding.h b/src/file-coding.h
index ff70465..9a7bb5e 100644 (file)
--- a/src/file-coding.h
+++ b/src/file-coding.h
@@ -133,6 +133,9 @@ struct Lisp_Coding_System
     Lisp_Object decode, encode;
   } ccl;
 #endif
+#ifdef UTF2000
+  char enable_composition;
+#endif
 };
 typedef struct Lisp_Coding_System Lisp_Coding_System;
 
@@ -176,6 +179,9 @@ DECLARE_LRECORD (coding_system, struct Lisp_Coding_System);
 #define CODING_SYSTEM_CCL_DECODE(codesys) ((codesys)->ccl.decode)
 #define CODING_SYSTEM_CCL_ENCODE(codesys) ((codesys)->ccl.encode)
 #endif /* MULE */
+#ifdef UTF2000
+#define CODING_SYSTEM_COMPOSITE(codesys) ((codesys)->enable_composition)
+#endif
 
 #define XCODING_SYSTEM_NAME(codesys) \
   CODING_SYSTEM_NAME (XCODING_SYSTEM (codesys))
@@ -222,6 +228,10 @@ DECLARE_LRECORD (coding_system, struct Lisp_Coding_System);
 #define XCODING_SYSTEM_CCL_ENCODE(codesys) \
   CODING_SYSTEM_CCL_ENCODE (XCODING_SYSTEM (codesys))
 #endif /* MULE */
+#ifdef UTF2000
+#define XCODING_SYSTEM_COMPOSITE(codesys) \
+  CODING_SYSTEM_COMPOSITE (XCODING_SYSTEM (codesys))
+#endif
 
 EXFUN (Fcoding_category_list, 0);
 EXFUN (Fcoding_category_system, 1);