From: tomo <tomo>
Date: Wed, 3 Aug 2005 09:37:57 +0000 (+0000)
Subject: (Qto_decomposition_at_circled): New variable.
X-Git-Tag: r21-4-17-chise-0_22-4^20~330
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=0f82e79b7bddd18d4816053b6bb1fb87afdba9b4;hp=8f7a94b79e3e2a75ff1e09cfce02e289757f4011;p=chise%2Fxemacs-chise.git.1

(Qto_decomposition_at_circled): New variable.
(put_char_composition): Return `=>decomposition@circled' instead of
`=decomposition' for compatibility decomposition mapping tagged
`circle'.
(syms_of_chartab): Add new symbol `=>decomposition@circled'.
---

diff --git a/src/chartab.c b/src/chartab.c
index 71909ed..6b33280 100644
--- a/src/chartab.c
+++ b/src/chartab.c
@@ -1132,6 +1132,7 @@ make_char_id_table (Lisp_Object initval)
 Lisp_Object Qcomposition;
 Lisp_Object Qmap_decomposition;
 Lisp_Object Qto_decomposition_at_superscript;
+Lisp_Object Qto_decomposition_at_circled;
 Lisp_Object Q_canonical;
 Lisp_Object Q_superscript_of;
 Lisp_Object Q_subscript_of;
@@ -3439,6 +3440,8 @@ put_char_composition (Lisp_Object character, Lisp_Object value)
 	}
       else if (EQ (XCAR (value), Qsuper))
 	return Qto_decomposition_at_superscript;
+      else if (EQ (XCAR (value), Qcircle))
+	return Qto_decomposition_at_circled;
       else
 	return
 	  Fintern (concat2 (build_string ("=>decomposition@"),
@@ -4687,6 +4690,7 @@ syms_of_chartab (void)
   defsymbol (&Qmap_decomposition,	"=decomposition");
   defsymbol (&Qto_decomposition_at_superscript,
 	     "=>decomposition@superscript");
+  defsymbol (&Qto_decomposition_at_circled, "=>decomposition@circled");
   defsymbol (&Q_canonical,		"->canonical");
   defsymbol (&Q_superscript_of,		"<-superscript");
   defsymbol (&Q_subscript_of,		"<-subscript");