From 5199252a0376a7ac7e719ed278d654414234b516 Mon Sep 17 00:00:00 2001 From: MORIOKA Tomohiko Date: Fri, 16 Feb 2018 10:20:04 +0900 Subject: [PATCH] Add `=gt' for each glyph object of GT. --- lisp/utf-2000/maps-conf.el | 7 +++++++ 1 file changed, 7 insertions(+) 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 -- 1.7.10.4