(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 (file)
--- 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)
                ((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) ?\e$B!T\e(B)
                 ;;     (insert " "))
                 (delete-char)
                 ;; (if (eq (char-before) ?\e$B!T\e(B)
                 ;;     (insert " "))

@@ -185,7 +186,8 @@
                 (insert "\\UCSjis{0294}"))
                ((and (encode-char chr '=ucs@jp)
                      (setq ret (char-representative-of-domain chr 'gb))
                 (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) ?\e$B!T\e(B)
                 ;;     (insert " "))
                 (delete-char)
                 ;; (if (eq (char-before) ?\e$B!T\e(B)
                 ;;     (insert " "))