Commit becd9edb authored by MORIOKA Tomohiko's avatar MORIOKA Tomohiko
Browse files

(char-db-dump-additional-idc): New function.

parent 9a775b98
......@@ -207,6 +207,38 @@
(expand-file-name
"additional-precomposed.el" directory)))))
;;;###autoload
(defun char-db-dump-additional-idc (directory)
(interactive "DDump additional-precomposed : ")
(let ((coding-system-for-write char-db-file-coding-system)
chars i chr ret)
(with-temp-buffer
(insert (format ";; -*- coding: %s -*-\n"
char-db-file-coding-system))
(setq i #x2FF0)
(while (<= i #x2ffB)
(setq chr (decode-char '=ucs i))
(dolist (f '(<-denotational <-denotational@component
<-denotational@arg-reversed))
(setq ret (get-char-attribute chr f))
(if (characterp ret)
(unless (memq ret chars)
(insert-char-data ret)
(setq chars (cons ret chars)))
(dolist (c (get-char-attribute chr f))
(unless (memq c chars)
(insert-char-data c)
(setq chars (cons c chars))))))
(dolist (ccs '(=ucs-var-001 =ucs-var-002 =ucs-var-003 =ucs-itaiji-001))
(when (setq chr (decode-char ccs i 'defined-only 'without-inheritance))
(unless (memq chr chars)
(insert-char-data chr)
(setq chars (cons chr chars)))))
(setq i (1+ i)))
(write-region (point-min)(point-max)
(expand-file-name
"additional-idc.el" directory)))))
;;;###autoload
(defun char-db-dump (directory)
......
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