(simplify_char_spec): Use Fdefine_char instead of Ffind_char for

[chise/xemacs-chise.git.1] / src / fns.c

diff --git a/src/fns.c b/src/fns.c
index 616897b..29ef8fa 100644 (file)
--- a/src/fns.c
+++ b/src/fns.c
@@ -3834,7 +3834,11 @@ simplify_char_spec (Lisp_Object char_spec)
     return Fdecode_char (Qmap_ucs, char_spec, Qnil, Qnil);
   else
     {
     return Fdecode_char (Qmap_ucs, char_spec, Qnil, Qnil);
   else
     {

+#if 0

       Lisp_Object ret = Ffind_char (char_spec);
       Lisp_Object ret = Ffind_char (char_spec);

+#else
+      Lisp_Object ret = Fdefine_char (char_spec);
+#endif

 
       if (CHARP (ret))
        return ret;
 
       if (CHARP (ret))
        return ret;