/* Declarations having to do with Mule char tables.
Copyright (C) 1992 Free Software Foundation, Inc.
Copyright (C) 1995 Sun Microsystems, Inc.
- Copyright (C) 1999,2000,2001,2002,2003,2004 MORIOKA Tomohiko
+ Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2006, 2010, 2013
+ MORIOKA Tomohiko
This file is part of XEmacs.
EXFUN (Fput_char_attribute, 3);
+EXFUN (Fdefine_char, 1);
+
EXFUN (Ffind_char, 1);
extern Lisp_Object Qdowncase, Qflippedcase, Q_lowercase, Q_uppercase;
int open_chise_data_source_maybe (void);
#endif
+#if defined(UTF2000) || defined(HAVE_CONCORD)
+extern Lisp_Object Q_denotational;
+extern Lisp_Object Q_denotational_from;
+extern Lisp_Object Q_subsumptive;
+extern Lisp_Object Q_subsumptive_from;
+#endif
+
+#ifdef HAVE_CONCORD
+extern Lisp_Object Vchise_system_db_directory;
+#endif
+
/************************************************************************/
/* Char-ID Tables */
/************************************************************************/
#ifdef HAVE_CHISE
Lisp_Object load_char_attribute_maybe (Lisp_Char_Table* cit, Emchar ch);
+#ifdef HAVE_LIBCHISE
+COS_object load_char_attribute_maybe_cos (Lisp_Char_Table* cit, Emchar ch);
+#endif
+
#ifndef HAVE_LIBCHISE
extern Lisp_Object Qsystem_char_id;
return val;
}
+#ifdef HAVE_LIBCHISE
+INLINE_HEADER Lisp_Object
+get_char_id_table_ce (Lisp_Char_Table* cit, Emchar ch);
+INLINE_HEADER Lisp_Object
+get_char_id_table_ce (Lisp_Char_Table* cit, Emchar ch)
+{
+ Lisp_Object val = get_char_id_table_0 (cit, ch);
+
+ if (EQ (val, Qunloaded))
+ {
+#if 0
+ val = load_char_attribute_maybe (cit, ch);
+#else
+ COS_object ret = load_char_attribute_maybe_cos (cit, ch);
+ if ( ret == NULL )
+ return cit->default_value;
+ else
+ return ret;
+#endif
+ }
+ if (UNBOUNDP (val))
+ return cit->default_value;
+ else
+ return val;
+}
+#else
+#define get_char_id_table_ce(cit, ch) get_char_id_table(cit, ch)
+#endif
+
void
decode_char_table_range (Lisp_Object range, struct chartab_range *outrange);