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

(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
--- 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) ?《)
 		 ;;     (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) ?《)
+		 ;;     (insert " "))
+		 (insert (format "\\UCSks{%04X}" ret)))
 		((setq ret (encode-char chr '=ucs-hangul))
 		 (delete-char)
 		 ;; (if (eq (char-before) ?《)