X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=src%2Fchartab.c;h=63c9fe88d3c95f70391289ddc4bd75c455ce7162;hb=911d823ebfa30c0c1c075b244b880289bf736508;hp=0523832289d05139aeb0b0f83043898cde8673e6;hpb=33684ca3fd153f9c2cb7bcf13c85c948b805cf43;p=chise%2Fxemacs-chise.git.1

diff --git a/src/chartab.c b/src/chartab.c
index 0523832..63c9fe8 100644
--- a/src/chartab.c
+++ b/src/chartab.c
@@ -1133,6 +1133,7 @@ Lisp_Object Qcomposition;
 Lisp_Object Qmap_decomposition;
 Lisp_Object Qto_decomposition_at_superscript;
 Lisp_Object Q_canonical;
+Lisp_Object Q_superscript_of;
 Lisp_Object Q_compat_of;
 Lisp_Object Q_decomposition;
 Lisp_Object Q_identical;
@@ -3428,6 +3429,8 @@ put_char_composition (Lisp_Object character, Lisp_Object value)
 	      else
 		Fsetcdr (ret, character);
 	    }
+	  else if (EQ (base, Qsuper))
+	    return Q_superscript_of;
 	  else if (EQ (base, Qcompat))
 	    return Q_compat_of;
 	}
@@ -3536,13 +3539,14 @@ Store CHARACTER's ATTRIBUTE with VALUE.
        EQ (attribute, Q_identical)		||
        EQ (attribute, Q_identical_from)		||
        EQ (attribute, Q_canonical)		||
+       EQ (attribute, Q_superscript_of)		||
        EQ (attribute, Q_compat_of)		||
        EQ (attribute, Q_component)		||
        EQ (attribute, Q_component_of)		||
        !NILP (Fstring_match
 	      (build_string ("^\\(<-\\|->\\)\\("
 			     "canonical"
-			     "\\|compat"
+			     "\\|superscript\\|compat"
 			     "\\|fullwidth\\|halfwidth"
 			     "\\|simplified\\|vulgar\\|wrong"
 			     "\\|same\\|original\\|ancient"
@@ -3892,6 +3896,7 @@ Save values of ATTRIBUTE into database file.
 		EQ (attribute, Q_identical)		||
 		EQ (attribute, Q_identical_from)	||
 		EQ (attribute, Q_canonical)		||
+		EQ (attribute, Q_superscript_of)	||
 		EQ (attribute, Q_compat_of)		||
 		!NILP (Fstring_match
 		       (build_string ("^\\(<-\\|->\\)\\(simplified"
@@ -4678,6 +4683,7 @@ syms_of_chartab (void)
   defsymbol (&Qto_decomposition_at_superscript,
 	     "=>decomposition@superscript");
   defsymbol (&Q_canonical,		"->canonical");
+  defsymbol (&Q_superscript_of,		"<-superscript");
   defsymbol (&Q_compat_of,		"<-compat");
   defsymbol (&Q_decomposition,		"->decomposition");
   defsymbol (&Qcompat,			"compat");