(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 (file)
--- a/elisp/chise-tex.el
+++ b/elisp/chise-tex.el
@@ -37,7 +37,7 @@
       char)))
 
 (defvar chise-tex-coded-charset-expression-alist
       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)
     (=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 chr (char-after)))
   (let (ret rest spec)
     (cond

+     ((setq ret (encode-char chr '=adobe-japan1-6))
+      (delete-char)
+      ;; (if (eq (char-before) ?\e$B!T\e(B)
+      ;;     (insert " "))
+      (insert (format "\\AdobeJP{%05d}" ret))
+      t)

      ((and (encode-char chr '=ks-x1001)
           (setq ret (or (encode-char chr '=ucs@ks)
                         (char-ucs chr))))
      ((and (encode-char chr '=ks-x1001)
           (setq ret (or (encode-char chr '=ucs@ks)
                         (char-ucs chr))))