From: tomo <tomo>
Date: Sun, 7 Jan 2007 02:57:44 +0000 (+0000)
Subject: (chise-tex-encode-region-for-jis): \UCSjis{XXXX} or \UCSgb{XXXX} can
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=0b558bce58d39b4a2d2dfc4827a7f71ea9552cdd;p=chise%2Fomega.git

(chise-tex-encode-region-for-jis): \UCSjis{XXXX} or \UCSgb{XXXX} can
support only BMP.
---

diff --git a/chise2otf/elisp/chise-tex.el b/chise2otf/elisp/chise-tex.el
index 6936160..0f5e29c 100644
--- a/chise2otf/elisp/chise-tex.el
+++ b/chise2otf/elisp/chise-tex.el
@@ -139,7 +139,8 @@
 		((and (or (encode-char chr '=jis-x0213-1-2000)
 			  (encode-char chr '=jis-x0213-2-2000))
 		      (setq ret (or (encode-char chr '=ucs@jis/2000)
-				    (encode-char chr '=ucs@jis/fw))))
+				    (encode-char chr '=ucs@jis/fw)))
+		      (<= ret #xFFFF))
 		 (delete-char)
 		 ;; (if (eq (char-before) ?《)
 		 ;;     (insert " "))
@@ -185,7 +186,8 @@
 		 (insert "\\UCSjis{0294}"))
 		((and (encode-char chr '=ucs@jp)
 		      (setq ret (char-representative-of-domain chr 'gb))
-		      (setq ret (encode-char ret '=ucs@gb)))
+		      (setq ret (encode-char ret '=ucs@gb))
+		      (<= ret #xFFFF))
 		 (delete-char)
 		 ;; (if (eq (char-before) ?《)
 		 ;;     (insert " "))