From 8a40cb4e00d1c2dad1a8bf172f935f27e4d7ebb6 Mon Sep 17 00:00:00 2001 From: tomo Date: Thu, 6 Mar 2003 09:04:43 +0000 Subject: [PATCH] Unify `=gt-pj-1' code points into JIS X 0208:1990 code points. --- lisp/utf-2000/maps-conf.el | 53 +++++++++++++++++++++++++------------------- 1 file changed, 30 insertions(+), 23 deletions(-) diff --git a/lisp/utf-2000/maps-conf.el b/lisp/utf-2000/maps-conf.el index f924b37..8a4ec69 100644 --- a/lisp/utf-2000/maps-conf.el +++ b/lisp/utf-2000/maps-conf.el @@ -19,26 +19,33 @@ (setq ucs (1+ ucs)))) -;; (let ((default-coded-charset-priority-list -;; '(ideograph-gt-pj-1 -;; ideograph-gt-pj-2 -;; ideograph-gt-pj-3 -;; ideograph-gt-pj-4 -;; ideograph-gt-pj-5 -;; ideograph-gt-pj-6 -;; ideograph-gt-pj-7 -;; ideograph-gt-pj-8 -;; ideograph-gt-pj-9 -;; ideograph-gt-pj-10 -;; ideograph-gt-pj-11 -;; ideograph-gt-pj-k1 -;; ideograph-gt-pj-k2)) -;; (i 1) -;; chr ret) -;; (while (<= i 12000) -;; (when (and (setq ret (decode-char 'ideograph-gt-k i)) -;; (setq ret (split-char ret)) -;; (memq (car ret) default-coded-charset-priority-list)) -;; (when (setq chr (apply (function make-char) ret)) -;; (put-char-attribute chr 'ideograph-gt-k i))) -;; (setq i (1+ i)))) +(map-char-attribute + (lambda (c v) + (put-char-attribute (decode-char 'japanese-jisx0208-1990 v) + '=gt-pj-1 v) + nil) + '=gt-pj-1) + +(let ((default-coded-charset-priority-list + '(=gt-pj-1 + =gt-pj-2 + =gt-pj-3 + =gt-pj-4 + =gt-pj-5 + =gt-pj-6 + =gt-pj-7 + =gt-pj-8 + =gt-pj-9 + =gt-pj-10 + =gt-pj-11 + =gt-pj-k1 + =gt-pj-k2)) + (i 1) + chr ret) + (while (<= i 12000) + (when (and (setq ret (decode-char '=gt-k i)) + (setq ret (split-char ret)) + (memq (car ret) default-coded-charset-priority-list)) + (when (setq chr (apply (function make-char) ret)) + (put-char-attribute chr '=gt-k i))) + (setq i (1+ i)))) -- 1.7.10.4