Commit 0207a088 authored by MORIOKA Tomohiko's avatar MORIOKA Tomohiko
Browse files

(char-db-dump-shuowen): New function.

parent 4ac97ade
......@@ -157,6 +157,22 @@
(write-region (point-min)(point-max)
(expand-file-name "Oracle-Bones.el" directory)))))
;;;###autoload
(defun char-db-dump-shuowen (directory)
(interactive "DDump Shuowen : ")
(let ((coding-system-for-write char-db-file-coding-system)
(code 1)
chr)
(with-temp-buffer
(insert (format ";; -*- coding: %s -*-\n"
char-db-file-coding-system))
(while (<= code 52101)
(when (setq chr (decode-char '=shuowen-jiguge code 'defined-only))
(insert-char-data chr))
(setq code (1+ code)))
(write-region (point-min)(point-max)
(expand-file-name "ShuoWen.el" directory)))))
;;;###autoload
(defun char-db-dump-ruimoku6 (directory)
(interactive "DDump ruimoku6 : ")
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment