From 54b37ae0068b2cbac9977f9b45455b149c4140a4 Mon Sep 17 00:00:00 2001 From: tomo Date: Tue, 31 May 2011 09:49:24 +0000 Subject: [PATCH] Don't add `=gt' for isolated GT characters. --- lisp/utf-2000/maps-conf.el | 38 +++++++++++++++++++------------------- 1 file changed, 19 insertions(+), 19 deletions(-) diff --git a/lisp/utf-2000/maps-conf.el b/lisp/utf-2000/maps-conf.el index ca74182..b69d3dd 100644 --- a/lisp/utf-2000/maps-conf.el +++ b/lisp/utf-2000/maps-conf.el @@ -103,25 +103,25 @@ (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))) +;; (let (gt ret) +;; (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))) ;; (let (ret) ;; (dolist (feature -- 1.7.10.4