From 0b558bce58d39b4a2d2dfc4827a7f71ea9552cdd Mon Sep 17 00:00:00 2001 From: tomo Date: Sun, 7 Jan 2007 02:57:44 +0000 Subject: [PATCH] (chise-tex-encode-region-for-jis): \UCSjis{XXXX} or \UCSgb{XXXX} can support only BMP. --- chise2otf/elisp/chise-tex.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) 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 " ")) -- 1.7.10.4