git.chise.org Git - chise/xemacs-chise.git-/blob - lisp/utf-2000/maps-conf.el

   1 (require 'read-maps)
   2
   3 (dolist (file '("J90-to-UCS.txt" "JSP-to-UCS.txt"
   4                 "JX1-to-UCS.txt" "JX2-to-UCS.txt"
   5                 "C3-to-UCS.txt" "C4-to-UCS.txt"
   6                 "B-to-UCS.txt" "JC3-to-UCS.txt"))
   7   (mapping-table-read-file (expand-file-name file "../etc/char-data/")))
   8
   9
  10 (let ((ucs #xE000)
  11       big5 chr
  12       ret)
  13   (while (<= ucs #xF848)
  14     (setq chr (decode-char 'ucs ucs))
  15     (when (setq big5 (get-char-attribute chr 'chinese-big5-pua))
  16       (when (setq chr (decode-char 'chinese-big5-cdp big5))
  17         (unless (get-char-attribute chr 'chinese-big5-cdp)
  18           (put-char-attribute chr 'chinese-big5-cdp big5))))
  19     (setq ucs (1+ ucs))))
  20
  21 ;; (map-char-attribute
  22 ;;  (lambda (ch v)
  23 ;;    (if (and ch
  24 ;;             (get-char-attribute ch 'chinese-big5))
  25 ;;        (remove-char-attribute ch 'chinese-big5))
  26 ;;    nil)
  27 ;;  'chinese-big5-cdp)