emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] elpa 7b41d77 38/51: Adapt for upLaTeX


From: Tassilo Horn
Subject: [elpa] elpa 7b41d77 38/51: Adapt for upLaTeX
Date: Sun, 22 May 2016 07:22:50 +0000 (UTC)

branch: elpa
commit 7b41d773d53895b0966e3efeab03075e867a5755
Author: Ikumi Keita <address@hidden>
Commit: Masayuki Ataka <address@hidden>

    Adapt for upLaTeX
    
    * tex-buf.el (TeX-LaTeX-sentinel): Accept banner line of upLaTeX.
    * tex-jp.el (japanese-LaTeX-style-list): Add class file for upLaTeX.
    * tex.el (TeX-format-list): Make upLaTeX class file names lead to
      `japanese-latex-mode'.
    
    Signed-off-by: Masayuki Ataka <address@hidden>
---
 tex-buf.el |    2 +-
 tex-jp.el  |    5 ++++-
 tex.el     |    2 +-
 3 files changed, 6 insertions(+), 3 deletions(-)

diff --git a/tex-buf.el b/tex-buf.el
index b55f2d4..f2017cd 100644
--- a/tex-buf.el
+++ b/tex-buf.el
@@ -1558,7 +1558,7 @@ Rerun to get mark in right position\\." nil t)
         (setq TeX-command-next TeX-command-default))
        ((re-search-forward
          "^\\(\\*\\* \\)?J?I?p?\\(La\\|Sli\\)TeX\\(2e\\)? \
-\\(Version\\|ver\\.\\|<[0-9/]*>\\)" nil t)
+\\(Version\\|ver\\.\\|<[0-9/]*\\(?:u[^>]*\\)?>\\)" nil t)
         (let* ((warnings (and TeX-debug-warnings
                               (TeX-LaTeX-sentinel-has-warnings)))
                (bad-boxes (and TeX-debug-bad-boxes
diff --git a/tex-jp.el b/tex-jp.el
index bdb1185..368f62d 100644
--- a/tex-jp.el
+++ b/tex-jp.el
@@ -309,7 +309,10 @@ For detail, see `TeX-command-list', to which this list is 
appended."
     ("treport")
     ("tbook")
     ("jsarticle")
-    ("jsbook"))
+    ("jsbook")
+    ;; for upLaTeX
+    ("ujarticle") ("ujreport") ("ujbook")
+    ("utarticle") ("utreport") ("utbook"))
   "*List of Japanese document styles."
   :group 'AUCTeX-jp
   :type '(repeat (group (string :format "%v"))))
diff --git a/tex.el b/tex.el
index c946851..6902de9 100644
--- a/tex.el
+++ b/tex.el
@@ -3521,7 +3521,7 @@ Choose `ignore' if you don't want AUCTeX to install 
support for font locking."
 
 (defvar TeX-format-list
   '(("JLATEX" japanese-latex-mode
-     "\\\\\\(documentstyle\\|documentclass\\)[^%\n]*{\\(j[s-]?\\|t\\)\
+     "\\\\\\(documentstyle\\|documentclass\\)[^%\n]*{u?\\(j[s-]?\\|t\\)\
 \\(article\\|report\\|book\\|slides\\)")
     ("JTEX" japanese-plain-tex-mode
      "-- string likely in Japanese TeX --")



reply via email to

[Prev in Thread] Current Thread [Next in Thread]