update.

[chise/isd.git] / isd-turtle.el

diff --git a/isd-turtle.el b/isd-turtle.el
index 4f4086d..93fea22 100644 (file)
--- a/isd-turtle.el
+++ b/isd-turtle.el
@@ -141,6 +141,7 @@
     =>ucs-itaiji-005
     =>ucs-itaiji-006
     =>ucs-itaiji-007
+    =>ucs-itaiji-009
     ==>ucs@bucs
     =big5
     =>cbeta
@@ -346,6 +347,21 @@
       (setq p1 'underlying
            p2 'overlaying)
       )
+     ((and idc (eq (encode-char idc '=ucs-itaiji-001) #x2FF6))
+      (setq idc-str "SLR")
+      (setq p1 'surround
+           p2 'filling)
+      )
+     ((and idc (eq (encode-char idc '=ucs-var-001) #x2FF0))
+      (setq idc-str "⿰・SLR")
+      (setq p1 'left
+           p2 'right)
+      )
+     ((and idc (eq (encode-char idc '=>iwds-1) 307))
+      (setq idc-str "⿰・⿺")
+      (setq p1 'left
+           p2 'right)
+      )
      ((and idc (eq (encode-char idc '=>iwds-1) 305))
       (setq idc-str "⿱・⿸")
       (setq p1 'above
@@ -355,7 +371,8 @@
       (setq idc-str "⿱・⿵")
       (setq p1 'above
            p2 'below)
-      ))
+      )
+     )
     (cond
      (p3
       (format "%s