(chise-tex-encode-region-for-gb): Add setting for KS character.
authortomo <tomo>
Wed, 12 Jan 2005 17:05:33 +0000 (17:05 +0000)
committertomo <tomo>
Wed, 12 Jan 2005 17:05:33 +0000 (17:05 +0000)
chise2otf/elisp/chise-tex.el

index 57527a1..ab49ff9 100644 (file)
                 ;; ((setq ret (encode-char chr '=jis-x0208-1990))
                 ;;  (delete-char)
                 ;;  (insert (decode-char '=jis-x0208-1983 ret)))
+               ((and (encode-char chr '=ks-x1001)
+                     (setq ret (or (encode-char chr '=ucs@ks)
+                                   (char-ucs chr))))
+                (delete-char)
+                ;; (if (eq (char-before) ?\e$B!T\e(B)
+                ;;     (insert " "))
+                (insert (format "\\UCSks{%04X}" ret)))
                ((catch 'tag
                   (setq rest chise-tex-coded-charset-expression-alist)
                   (while (setq spec (car rest))