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

diff --git a/chise2otf/elisp/chise-tex.el b/chise2otf/elisp/chise-tex.el
index 8cb81a3..57527a1 100644 (file)
--- a/chise2otf/elisp/chise-tex.el
+++ b/chise2otf/elisp/chise-tex.el
@@ -1,6 +1,6 @@
 ;;; chise-tex.el --- Coding-system based chise2otf like tool
 
-;; Copyright (C) 2004 MORIOKA Tomohiko
+;; Copyright (C) 2004,2005 MORIOKA Tomohiko
 
 ;; Author: MORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
 ;; Keywords: OTF package, pTeX, CHISE, Multiscript, Multilingual
@@ -104,6 +104,13 @@
                 ;; (if (eq (char-before) ?\e$B!T\e(B)
                 ;;     (insert " "))
                 (insert (format "\\UCSjis{%04X}" ret)))
+               ((and (encode-char chr '=ks-x1001)
+                     (setq ret (or (encode-char chr '=ucs@ks)
+                                   (char-ucs chr))))
+                (delete-char)
+                ;; (if (eq (char-before) ?\e$B!T\e(B)
+                ;;     (insert " "))
+                (insert (format "\\UCSks{%04X}" ret)))
                ((setq ret (encode-char chr '=ucs-hangul))
                 (delete-char)
                 ;; (if (eq (char-before) ?\e$B!T\e(B)