X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=ids-dump.el;h=c2e07988991fdef85331f6a286e7fa154ca6d676;hb=aee594684f23f0905ad4a334e198832cf1e67918;hp=78d0ca7efe15c80725cdf2359d3292dff8f7c5f8;hpb=bd596cf46112efbf5038f9ad40c89cca05e4c0b5;p=chise%2Fids.git

diff --git a/ids-dump.el b/ids-dump.el
index 78d0ca7..c2e0798 100644
--- a/ids-dump.el
+++ b/ids-dump.el
@@ -1,6 +1,6 @@
 ;;; ids-dump.el --- Dump utility of IDS-* files
 
-;; Copyright (C) 2002,2003,2004,2005,2009 MORIOKA Tomohiko
+;; Copyright (C) 2002,2003,2004,2005,2009,2011,2019 MORIOKA Tomohiko
 
 ;; Author: MORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
 ;; Keywords: IDS, IDC, Ideographs, UCS, Unicode
@@ -271,6 +271,14 @@
   (interactive "Fdump IDS-UCS-Basic : ")
   (ids-dump-range "IDS-UCS-Basic.txt" filename
 		  #'ids-dump-insert-ccs-ranges 'ucs "U+%04X\t%c\t%s\n"
+		  '(#x4E00 . #x9FEA)))
+
+;;;###autoload
+(defun ids-dump-ucs-basic@unicode (filename)
+  (interactive "Fdump IDS-UCS-Basic : ")
+  (ids-dump-range "IDS-UCS-Basic_u.txt" filename
+		  #'ids-dump-insert-ccs-ranges '=ucs@unicode
+		  "UU+%04X\t%c\t%s\n"
 		  '(#x4E00 . #x9FA5)))
 
 ;;;###autoload