/* Code conversion functions.
Copyright (C) 1991, 1995 Free Software Foundation, Inc.
Copyright (C) 1995 Sun Microsystems, Inc.
- Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2008, 2011
- MORIOKA Tomohiko
+ Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2008, 2011,
+ 2012 MORIOKA Tomohiko
This file is part of XEmacs.
Lisp_Object Qccs_priority_list;
Lisp_Object Quse_entity_reference;
Lisp_Object Qd, Qx, QX;
+Lisp_Object Vdecomposition_feature_list;
#endif
Lisp_Object Qencode, Qdecode;
} \
} while (0)
-INLINE_HEADER void DECODE_ADD_UCS_CHAR(Emchar c, unsigned_char_dynarr* dst);
-INLINE_HEADER void
+static void DECODE_ADD_UCS_CHAR(Emchar c, unsigned_char_dynarr* dst);
+static void
DECODE_ADD_UCS_CHAR(Emchar c, unsigned_char_dynarr* dst)
{
if ( c <= 0x7f )
char_type = Qnil;
if (!NILP (ccs = Ffind_charset (ccs)))
{
- int code_point = charset_code_point (ccs, ch, 0);
+ int code_point
+ = charset_code_point (ccs, ch,
+ NILP (char_type) ?
+ CHAR_ALL : CHAR_ISOLATED_ONLY );
if ( (code_point >= 0)
- && (NILP (char_type)
- || DECODE_CHAR (ccs, code_point, 0) != ch) )
+ && ( NILP (char_type)
+#if 1
+ || ( charset_code_point (ccs, ch, CHAR_DEFINED_ONLY)
+ == -1 )
+#endif
+#if 0
+ || ( DECODE_CHAR (ccs, code_point, 0) != ch )
+#endif
+ )
+ )
{
Lisp_Object ret;
if ( (code_point < 0) || (code_point > 0xEFFFF) )
{
- Lisp_Object seq = Fchar_feature (make_char (ch),
- Qrep_decomposition, Qnil,
- Qnil, Qnil);
+ Lisp_Object rest = Vdecomposition_feature_list;
+ Lisp_Object decomp_f;
+ Lisp_Object seq = Qnil;
Lisp_Object map, ret;
+ struct gcpro gcpro1;
+
+ while ( CONSP (rest) )
+ {
+ decomp_f = XCAR (rest);
+ GCPRO1 (rest);
+ seq = Fchar_feature (make_char (ch), decomp_f, Qnil,
+ Qnil, Qnil);
+ UNGCPRO;
+ if ( !NILP (seq) )
+ break;
+ rest = XCDR (rest);
+ }
if ( CONSP (seq) )
{
Setting this to nil does not do anything.
*/ );
enable_multibyte_characters = 1;
+
+#ifdef UTF2000
+ DEFVAR_LISP ("decomposition-feature-list",
+ &Vdecomposition_feature_list /*
+List of `=decomposition@FOO' feature to encode characters as IVS.
+*/ );
+ Vdecomposition_feature_list = Qnil;
+#endif
}
void