projects
/
chise
/
ids.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
(U+30184): Modify structure; preserve the previous IDS as an apparent
[chise/ids.git]
/
ids-dump.el
diff --git
a/ids-dump.el
b/ids-dump.el
index
c2e0798
..
e531c16
100644
(file)
--- a/
ids-dump.el
+++ b/
ids-dump.el
@@
-1,6
+1,6
@@
;;; ids-dump.el --- Dump utility of IDS-* files
;;; ids-dump.el --- Dump utility of IDS-* files
-;; Copyright (C) 2002,2003,2004,2005,2009,2011,2019 MORIOKA Tomohiko
+;; Copyright (C) 2002,2003,2004,2005,2009,2011,2019,2022 MORIOKA Tomohiko
;; Author: MORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
;; Keywords: IDS, IDC, Ideographs, UCS, Unicode
;; Author: MORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
;; Keywords: IDS, IDC, Ideographs, UCS, Unicode
@@
-345,6
+345,13
@@
'(#x2F800 . #x2FA1D)))
;;;###autoload
'(#x2F800 . #x2FA1D)))
;;;###autoload
+(defun ids-dump-ucs-ext-h (filename)
+ (interactive "Fdump IDS-UCS-Ext-H : ")
+ (ids-dump-range "IDS-UCS-Ext-H.txt" filename
+ #'ids-dump-insert-ccs-ranges 'ucs "U+%04X\t%c\t%s\n"
+ '(#x31350 . #x323AF)))
+
+;;;###autoload
(defun ids-dump-cns11643-1 (filename)
(interactive "Fdump IDS-CNS-1 : ")
(ids-dump-range "IDS-CNS-1.txt" filename
(defun ids-dump-cns11643-1 (filename)
(interactive "Fdump IDS-CNS-1 : ")
(ids-dump-range "IDS-CNS-1.txt" filename