From 64fdd0800c2cdbdea880c47fa55891f7a066c9bb Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Sat, 6 Aug 2005 17:54:50 +0000
Subject: [PATCH] (put_char_composition): Return
 `<-formed@{isolated|initial|medial|final}' for
 compatibility mapping to single character tagged
 `{isolated|initial|medial|final}'.

---
 src/chartab.c |    8 ++++++++
 1 file changed, 8 insertions(+)

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 ("<-"),
-- 
1.7.10.4