[elpa] externals/auctex c872521 3/7: Deal with strange file name

[Tassilo Horn]

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

    Deal with strange file name
    
    * tex-jp.el (): Increase `pos' in case the master file
    name happens to contain special %-sequence.
---
 tex-jp.el | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/tex-jp.el b/tex-jp.el
index 3b56a67..5bdae54 100644
--- a/tex-jp.el
+++ b/tex-jp.el
@@ -205,7 +205,12 @@ For detail, see `TeX-command-list', to which this list is 
appended."
                    (let ((dicname (TeX-master-file "dic" t)))
                      (if (file-exists-p
                           (expand-file-name dicname (TeX-master-directory)))
-                         (format "-d %s" dicname) ""))))
+                         (let ((result (format "-d %s" dicname)))
+                           ;; Advance past the file name in order to
+                           ;; prevent expanding any substring of it.
+                           (setq pos (+ pos (length result)))
+                           result)
+                       ""))))
         ;; 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