From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Thu, 14 Jul 2011 04:45:02 +0000 (+0000)
Subject: (chise-tex-coded-charset-expression-alist): Use `=adobe-japan1-6'
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=269929cc06c113d05a11c1240e0a59a4ea617b5f;p=chise%2Fuptex-chise.git

(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'.
---

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