From: tomo <tomo>
Date: Wed, 12 Jan 2005 17:05:33 +0000 (+0000)
Subject: (chise-tex-encode-region-for-gb): Add setting for KS character.
X-Git-Url: http://git.chise.org/gitweb/?p=chise%2Fomega.git;a=commitdiff_plain;h=b09206fa2db0d504a1d95865309acd08aa6e79f0

(chise-tex-encode-region-for-gb): Add setting for KS character.
---

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))