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