[elpa] externals/auctex 865906c 2/7: Support upmendex

[Tassilo Horn]

branch: externals/auctex
commit 865906ce399da747e59b93b9c8678b6bcb233409
Author: Ikumi Keita <address@hidden>
Commit: Ikumi Keita <address@hidden>

    Support upmendex
    
    * tex-jp.el (): Make "%(makeindex)" to expand to upmendex when
    upmendex is available and `TeX-engine' is supported by it.
    Add "%(dic)" expander for the dictionary option of (up)mendex.
    * tex.el (TeX-command-list): Add "upMendex" entry.  Set 4th
    element to t so that user will get a chance to supply
    dictionary option to the command line string.
---
 tex-jp.el | 27 ++++++++++++++++++++++++---
 tex.el    |  2 ++
 2 files changed, 26 insertions(+), 3 deletions(-)

diff --git a/tex-jp.el b/tex-jp.el
index 66772aa..3b56a67 100644
--- a/tex-jp.el
+++ b/tex-jp.el
@@ -172,10 +172,21 @@ For detail, see `TeX-command-list', to which this list is 
appended."
                         ((eq TeX-engine 'jtex) "jbibtex")
                         ((eq TeX-engine 'uptex) "upbibtex")
                         (t "bibtex"))))
-        ;; mendex $B$H(B makeindex $B$NE,@Z$JJ}$rA*Br$9$k!#(B
+        ;; mendex, upmendex, makeindex $B$N$&$AE,@Z$J$b$N$rA*Br$9$k!#(B
         ("%(makeindex)" (lambda ()
-                          (if (memq TeX-engine '(ptex uptex))
-                              "mendex %(mendexkopt)" "makeindex")))
+                          (cond
+                          ;; upmendex $B$O(B XeLaTeX $B$d(B LuaLaTeX 
$B$G$b(B
+                          ;; $B;H$($k!#(Bsee
+                          ;; http://www.t-lab.opal.ne.jp/tex/README_upmendex.md
+                          ;; FIXME: XeLaTeX $B$d(B LuaLaTeX 
address@hidden;H$&(B
+                          ;; $BMxMQ<T$N>l9g$O!"(Btex-jp $B$O(B load 
$B$5$l$J(B
+                          ;; address@hidden,$J$$!#(B
+                           ((and (memq TeX-engine '(uptex xetex luatex))
+                                 (executable-find "upmendex"))
+                            "upmendex %(dic)")
+                           ((memq TeX-engine '(ptex uptex))
+                            "mendex %(mendexkopt) %(dic)")
+                           (t "makeindex"))))
         ;; mendex $BMQF|K\8l%3!<%I%*%W%7%g%s!#(B
         ("%(mendexkopt)" (lambda ()
                            (if (and (featurep 'mule)
@@ -185,6 +196,16 @@ For detail, see `TeX-command-list', to which this list is 
appended."
                                  (if str (format " -%c " (upcase (aref str 0)))
                                    ""))
                              "")))
+       ;; (up)mendex $BMQ<-=q;XDj%*%W%7%g%s!#(B
+       ("%(dic)" (lambda ()
+                   ;; master $B$HF1L>$G3HD%;R$,(B .dic 
$B$N%U%!%$%k$,$"$l$P(B
+                   ;; $B$=$l$r<-=qL>$H$7$F(B -d $B%*%W%7%g%s$KM?$($k!#(B
+                   ;; C-c C-r $BEy$N>l9g(B _region_.dic $B$K$9$Y$-$G$O(B
+                   ;; $B$J$$$N$G!"(B`TeX-master-file' $B$rM[$K8F$V!#(B
+                   (let ((dicname (TeX-master-file "dic" t)))
+                     (if (file-exists-p
+                          (expand-file-name dicname (TeX-master-directory)))
+                         (format "-d %s" dicname) ""))))
         ;; pxdvi $B$H(B %(o?)xdvi $B$NE,@Z$JJ}$rA*Br$9$k!#(B
         ("%(xdvi)" (lambda ()
                      ;; pxdvi $B$O(B ptex, jtex $B6&MQ$J$N$G!"(B
diff --git a/tex.el b/tex.el
index 013e6d1..41838bb 100644
--- a/tex.el
+++ b/tex.el
@@ -159,6 +159,8 @@ If nil, none is specified."
      t :help "Run makeglossaries to create glossary file")
     ("Index" "makeindex %s" TeX-run-index nil t
      :help "Run makeindex to create index file")
+    ("upMendex" "upmendex %s" TeX-run-index t t
+     :help "Run mendex to create index file")
     ("Xindy" "texindy %s" TeX-run-command nil t
      :help "Run xindy to create index file")
     ("Check" "lacheck %s" TeX-run-compile nil (latex-mode)