projects
/
chise
/
xemacs-chise.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
update.
[chise/xemacs-chise.git]
/
src
/
chartab.c
diff --git
a/src/chartab.c
b/src/chartab.c
index
d955a1a
..
02ef2df
100644
(file)
--- a/
src/chartab.c
+++ b/
src/chartab.c
@@
-76,7
+76,6
@@
EXFUN (Fchar_refs_simplify_char_specs, 1);
extern Lisp_Object Qideographic_structure;
Lisp_Object Vnext_defined_char_id;
extern Lisp_Object Qideographic_structure;
Lisp_Object Vnext_defined_char_id;
-EXFUN (Fdefine_char, 1);
EXFUN (Fmap_char_attribute, 3);
EXFUN (Fmap_char_attribute, 3);
@@
-3426,7
+3425,7
@@
put_char_composition (Lisp_Object character, Lisp_Object value)
if (INTP (v))
{
if (INTP (v))
{
- Emchar c = XINT (v);
+ Emchar c = DECODE_CHAR (Vcharset_ucs, XINT (v), 0);
Lisp_Object ret
= Fchar_feature (make_char (c), Q_ucs_unified, Qnil,
Qnil, Qnil);
Lisp_Object ret
= Fchar_feature (make_char (c), Q_ucs_unified, Qnil,
Qnil, Qnil);
@@
-3489,7
+3488,7
@@
Store CHARACTER's ATTRIBUTE with VALUE.
if (!INTP (value))
signal_simple_error ("Invalid value for =>ucs", value);
if (!INTP (value))
signal_simple_error ("Invalid value for =>ucs", value);
- c = XINT (value);
+ c = DECODE_CHAR (Vcharset_ucs, XINT (value), 0);
ret = Fchar_feature (make_char (c), Q_ucs_unified, Qnil,
Qnil, Qnil);
ret = Fchar_feature (make_char (c), Q_ucs_unified, Qnil,
Qnil, Qnil);