From 0f82e79b7bddd18d4816053b6bb1fb87afdba9b4 Mon Sep 17 00:00:00 2001 From: tomo Date: Wed, 3 Aug 2005 09:37:57 +0000 Subject: [PATCH] (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'. --- src/chartab.c | 4 ++++ 1 file changed, 4 insertions(+) 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"); -- 1.7.10.4