From: tomo Date: Sat, 6 Aug 2005 17:54:50 +0000 (+0000) Subject: (put_char_composition): Return X-Git-Tag: r21-4-17-chise-0_22-4^20~304 X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=64fdd0800c2cdbdea880c47fa55891f7a066c9bb;p=chise%2Fxemacs-chise.git (put_char_composition): Return `<-formed@{isolated|initial|medial|final}' for compatibility mapping to single character tagged `{isolated|initial|medial|final}'. --- diff --git a/src/chartab.c b/src/chartab.c index b6945e4..b23f3d9 100644 --- a/src/chartab.c +++ b/src/chartab.c @@ -3437,6 +3437,14 @@ put_char_composition (Lisp_Object character, Lisp_Object value) return Q_subscript_of; else if (EQ (base, Qcircle)) return Q_circled_of; + else if ( EQ (base, Qisolated)|| + EQ (base, Qinitial) || + EQ (base, Qmedial) || + EQ (base, Qfinal) ) + return + Fintern (concat2 (build_string ("<-formed@"), + Fsymbol_name (base)), + Qnil); else if (SYMBOLP (base)) return Fintern (concat2 (build_string ("<-"),