Add `=gt' for each glyph object of GT.
authorMORIOKA Tomohiko <tomo.git@chise.org>
Fri, 16 Feb 2018 01:20:04 +0000 (10:20 +0900)
committerMORIOKA Tomohiko <tomo.git@chise.org>
Fri, 16 Feb 2018 01:20:04 +0000 (10:20 +0900)
lisp/utf-2000/maps-conf.el

index 6670219..8b12263 100644 (file)
    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