From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Fri, 16 Feb 2018 01:20:04 +0000 (+0900)
Subject: Add `=gt' for each glyph object of GT.
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=5199252a0376a7ac7e719ed278d654414234b516;p=chise%2Fxemacs-chise.git.1

Add `=gt' for each glyph object of GT.
---

diff --git a/lisp/utf-2000/maps-conf.el b/lisp/utf-2000/maps-conf.el
index 6670219..8b12263 100644
--- a/lisp/utf-2000/maps-conf.el
+++ b/lisp/utf-2000/maps-conf.el
@@ -105,6 +105,13 @@
    nil)
  '=gt-pj-1)
 
+(let ((i 1)
+      chr)
+  (while (<= i 67547)
+    (when (setq chr (decode-char '=gt i))
+      (put-char-attribute chr '=gt i))
+    (setq i (1+ i))))
+
 (let ((default-coded-charset-priority-list
 	'(=gt-pj-1
 	  =gt-pj-2