git.chise.org Git - chise/xemacs-chise.git-/blob - lisp/utf-2000/ad-hoc-cdp.el

   1 (let ((ucs #xE000)
   2       big5 chr
   3       ret)
   4   (while (<= ucs #xF848)
   5     (setq chr (decode-char 'ucs ucs))
   6     (when (setq big5 (get-char-attribute chr 'chinese-big5-pua))
   7       (when (setq chr (decode-char 'chinese-big5-cdp big5))
   8         (unless (get-char-attribute chr 'chinese-big5-cdp)
   9           (put-char-attribute chr 'chinese-big5-cdp big5))))
  10     (setq ucs (1+ ucs))))
  11
  12 ;; (map-char-attribute
  13 ;;  (lambda (ch v)
  14 ;;    (if (and ch
  15 ;;             (get-char-attribute ch 'chinese-big5))
  16 ;;        (remove-char-attribute ch 'chinese-big5))
  17 ;;    nil)
  18 ;;  'chinese-big5-cdp)