(chise-tex-encode-region-for-jis): \UCSjis{XXXX} or \UCSgb{XXXX} can
authortomo <tomo>
Sun, 7 Jan 2007 02:57:44 +0000 (02:57 +0000)
committertomo <tomo>
Sun, 7 Jan 2007 02:57:44 +0000 (02:57 +0000)
support only BMP.

chise2otf/elisp/chise-tex.el

index 6936160..0f5e29c 100644 (file)
                ((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 " "))
                 (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 " "))