From: tomo <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/gitweb/?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 ("<-"),