From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Mon, 27 Feb 2017 10:49:20 +0000 (+0900)
Subject: (isd-turtle-dump-ucs-ext-a): New function.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=cf7c3423ec52a7b7a6f51e9d5a9228c57a88a855;p=chise%2Fisd.git

(isd-turtle-dump-ucs-ext-a): New function.
---

diff --git a/isd-turtle.el b/isd-turtle.el
index 1113bcc..f20c817 100644
--- a/isd-turtle.el
+++ b/isd-turtle.el
@@ -188,7 +188,7 @@
 	     (setq ret (find-char c3)))
 	(setq c3 ret))
     (cond
-     ((eq idc ?â¿°)
+     ((eq idc ?\u2FF0) ; â¿°
       (setq p1 'left
 	    p2 'right)
       )
@@ -305,6 +305,14 @@
 			 #'isd-turtle-insert-ccs-ranges
 			 'ucs '(#x4E00 . #x9FA5)))
 
+;;;###autoload
+(defun isd-turtle-dump-ucs-ext-a (filename)
+  (interactive "Fdump ISD-UCS-Ext-A : ")
+  (isd-turtle-dump-range "ISD-UCS-Ext-A.txt" filename
+			 #'isd-turtle-insert-ccs-ranges
+			 'ucs '(#x3400 . #x4DB5) #xFA1F #xFA23))
+
+
 
 ;;; @ End.
 ;;;