From 269929cc06c113d05a11c1240e0a59a4ea617b5f Mon Sep 17 00:00:00 2001 From: MORIOKA Tomohiko Date: Thu, 14 Jul 2011 04:45:02 +0000 Subject: [PATCH] (chise-tex-coded-charset-expression-alist): Use `=adobe-japan1-6' instead of `=adobe-japan1-5'. (chise-tex-encode-ucs-char-at-point): Prefer `=adobe-japan1-6'. --- elisp/chise-tex.el | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/elisp/chise-tex.el b/elisp/chise-tex.el index e0256f5..090a325 100644 --- a/elisp/chise-tex.el +++ b/elisp/chise-tex.el @@ -37,7 +37,7 @@ char))) (defvar chise-tex-coded-charset-expression-alist - '((=adobe-japan1-5 "AdobeJP" 5 d) + '((=adobe-japan1-6 "AdobeJP" 5 d) (=ucs-bmp@gb "UCSgb" 4 X) (=ucs-bmp@jis "UCSjis" 4 X) (=ucs-bmp@ks "UCSks" 4 X) @@ -149,6 +149,12 @@ (setq chr (char-after))) (let (ret rest spec) (cond + ((setq ret (encode-char chr '=adobe-japan1-6)) + (delete-char) + ;; (if (eq (char-before) ?《) + ;; (insert " ")) + (insert (format "\\AdobeJP{%05d}" ret)) + t) ((and (encode-char chr '=ks-x1001) (setq ret (or (encode-char chr '=ucs@ks) (char-ucs chr)))) -- 1.7.10.4