[AUCTeX-diffs] GNU AUCTeX branch, master, updated. 77c2cda99c60108cf9bb7e5706101bf8cd1ae20e

[Ikumi Keita]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU AUCTeX".

The branch, master has been updated
       via  77c2cda99c60108cf9bb7e5706101bf8cd1ae20e (commit)
      from  2df27462bca8f2d12a5e5de56971722e33074f56 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 77c2cda99c60108cf9bb7e5706101bf8cd1ae20e
Author: Ikumi Keita <address@hidden>
Date:   Wed Dec 20 18:06:12 2017 +0900

    Remove XEmacs compatibility code in tex-jp.el
    
    * tex-jp.el (japanese-TeX-set-process-coding-system)
    (japanese-TeX-coding-ejsu): Remove code for compatibility with
    XEmacs.

diff --git a/tex-jp.el b/tex-jp.el
index 4d34fa8..83e66af 100644
--- a/tex-jp.el
+++ b/tex-jp.el
@@ -390,29 +390,7 @@ See also a user custom option 
`TeX-japanese-process-input-coding-system'."
                   ;; address@hidden"(Blocale 
$B$,F|K\8l$r%5%]!<%H$7$J$$>l9g$O(B
                   ;; euc $B$K8GDj$9$k!#(B
                   (t
-                   (let ((lcs
-                          (cond
-                           ((boundp 'locale-coding-system)
-                            locale-coding-system)
-                           ;; XEmacs doesn't have `locale-coding-system'.
-                           ;; Instead xemacs 21.5 has
-                           ;; `get-coding-system-from-locale' and
-                           ;; `current-locale'.  They aren't available on
-                           ;; xemacs 21.4.
-                           ((and
-                             (featurep 'xemacs)
-                             (fboundp 'get-coding-system-from-locale))
-                            (get-coding-system-from-locale
-                             (if (fboundp 'current-locale)
-                                 (current-locale)
-                               ;; I don't know XEmacs well, so incorporate
-                               ;; the suggestion of
-                               ;; 
http://lists.gnu.org/archive/html/auctex-devel/2017-02/msg00079.html
-                               ;; as well.
-                               (or (getenv "LC_ALL")
-                                   (getenv "LC_CTYPE")
-                                   (getenv "LANG")
-                                   "")))))))
+                   (let ((lcs locale-coding-system))
                      (if (and lcs (japanese-TeX-coding-ejsu lcs))
                          lcs 'euc-jp)))))))
 
@@ -455,28 +433,18 @@ shift_jis: \"sjis\"
 utf-8:     \"utf8\"
 Return nil otherwise."
   (let ((base (coding-system-base coding-system)))
-    (if (featurep 'xemacs)
-       (setq base (coding-system-name base)))
     (cdr (assq base
               '((japanese-iso-8bit . "euc")
-                (euc-jp . "euc") ; for xemacs
                 (iso-2022-jp . "jis")
                 (japanese-shift-jis . "sjis")
-                (shift_jis . "sjis") ; for xemacs
                 (utf-8 . "utf8")
-                (mule-utf-8 . "utf8") ; for emacs 21, 22
-                ;; utf-8-auto $B$d(B utf-8-emacs 
$B$rF~$l$kI,MW$O$"$k$N$+!)(B
 
-                ;; xemacs 21.5 with mule $B$K$O!"(Bjisx0213 $B$N(B charset 
$B$O(B
-                ;; $B$"$k$,$=$lMQ$N(B coding system $B$O$J$$!#(B
                 (euc-jis-2004 . "euc")
                 (iso-2022-jp-2004 . "jis")
                 (japanese-shift-jis-2004 . "sjis")
 
                 (japanese-cp932 . "sjis")
-                (eucjp-ms . "euc")
-                (windows-932 . "sjis") ; for xemacs 21.5 with mule
-               )))))
+                (eucjp-ms . "euc"))))))
 
 (defun japanese-TeX-get-encoding-string ()
   "Return coding option string for Japanese pTeX family.

-----------------------------------------------------------------------

Summary of changes:
 tex-jp.el | 36 ++----------------------------------
 1 file changed, 2 insertions(+), 34 deletions(-)


hooks/post-receive
-- 
GNU AUCTeX