From b09206fa2db0d504a1d95865309acd08aa6e79f0 Mon Sep 17 00:00:00 2001 From: tomo Date: Wed, 12 Jan 2005 17:05:33 +0000 Subject: [PATCH] (chise-tex-encode-region-for-gb): Add setting for KS character. --- chise2otf/elisp/chise-tex.el | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/chise2otf/elisp/chise-tex.el b/chise2otf/elisp/chise-tex.el index 57527a1..ab49ff9 100644 --- a/chise2otf/elisp/chise-tex.el +++ b/chise2otf/elisp/chise-tex.el @@ -64,6 +64,13 @@ ;; ((setq ret (encode-char chr '=jis-x0208-1990)) ;; (delete-char) ;; (insert (decode-char '=jis-x0208-1983 ret))) + ((and (encode-char chr '=ks-x1001) + (setq ret (or (encode-char chr '=ucs@ks) + (char-ucs chr)))) + (delete-char) + ;; (if (eq (char-before) ?《) + ;; (insert " ")) + (insert (format "\\UCSks{%04X}" ret))) ((catch 'tag (setq rest chise-tex-coded-charset-expression-alist) (while (setq spec (car rest)) -- 1.7.10.4