From 68b82fc0e949b68ebef8a696dcf4f6705d9f77d1 Mon Sep 17 00:00:00 2001 From: tomo Date: Mon, 16 Jun 2003 08:42:06 +0000 Subject: [PATCH] Add `=gt' features to `=gt-pj-*' characters. --- lisp/utf-2000/maps-conf.el | 20 ++++++++++++++++++++ 1 file changed, 20 insertions(+) diff --git a/lisp/utf-2000/maps-conf.el b/lisp/utf-2000/maps-conf.el index 8a4ec69..2fcd9d3 100644 --- a/lisp/utf-2000/maps-conf.el +++ b/lisp/utf-2000/maps-conf.el @@ -49,3 +49,23 @@ (when (setq chr (apply (function make-char) ret)) (put-char-attribute chr '=gt-k i))) (setq i (1+ i)))) + +(let (gt) + (dolist (ccs '(=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)) + (map-char-attribute + (lambda (c v) + (when (setq gt (encode-char c '=gt)) + (put-char-attribute c '=gt gt) + (put-char-attribute (decode-char ccs v) '=gt gt)) + nil) + ccs))) -- 1.7.10.4