X-Git-Url: http://git.chise.org/gitweb/?p=chise%2Fomega.git;a=blobdiff_plain;f=chise2otf%2Felisp%2Fchise-tex.el;h=0f5e29caa8b27db86fc8a48d282913b92f0f44fa;hp=693616013235c8e992743d589f7294a503b9c29a;hb=0b558bce58d39b4a2d2dfc4827a7f71ea9552cdd;hpb=543b9d366e20b2110757b2565bcdd0b4b29bb2aa

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