[elpa] externals/auctex 07a2903 82/95: Don't alter standard value or saved value themselves of customize option

[Tassilo Horn]

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

    Don't alter standard value or saved value themselves of customize option
    
    * tex-jp.el (): Stop using `setcar' on the elements of
    `TeX-command-list'.  This used to alter the standard value
    or saved value themselves of the customize option since
    `setcar' operates descructively on lists as Lisp objects.
    Instead create new list by `mapcar' and `append'.
    (): Deal with the case that `TeX-view-program-list-builtin'
    doesn't have an entry of "xdvi".
    Change the expected executable name to "%(xdvi)" as well.
---
 tex-jp.el | 43 +++++++++++++++++++++++++++++--------------
 1 file changed, 29 insertions(+), 14 deletions(-)

diff --git a/tex-jp.el b/tex-jp.el
index a9010f4..66772aa 100644
--- a/tex-jp.el
+++ b/tex-jp.el
@@ -113,11 +113,25 @@ For detail, see `TeX-command-list', to which this list is 
appended."
                                     (const :tag "AmSTeX" ams-tex-mode)))
                        (repeat :tag "Menu elements" :inline t sexp))))
 
-;; Define before first use.
-(defvar japanese-TeX-mode nil
-  "Non-nil means the current buffer handles Japanese TeX/LaTeX.")
-(make-variable-buffer-local 'japanese-TeX-mode)
-(put 'japanese-TeX-mode 'permanent-local t)
+;; customize option $B$N=i4|CM$d(B saved value 
$B$=$N$b$N$r2~JQ$7$J$$$h$&$K(B
+;; $B$9$k$?$a!"(Bsetcar $B$N;HMQ$OHr$1$k!#(B
+(setq TeX-command-list
+      ;; `TeX-command-list' $B$HF1$89=B$$N?7$7$$(B list $B$r:n$k!#(B
+      ;; $B3FMWAG$N(B list $B$r(B l $B$H$7$F!"(Bl 
$B$=$N$b$N$r;H$C$?$j!"(Bl $B$r(B
+      ;; $B<address@hidden(B list $B$r:n$C$?$j$7$F(B `mapcar' 
$B$G=8$a$k!#(B
+      (mapcar
+       (lambda (l)
+        (cond
+         ;; l $B$NBh(B1$BMWAG$,(B "BibTeX" $B$d(B "Index" 
address@hidden"(Bl $B$NBh(B2$BMWAG(B
+         ;; address@hidden($?JL$N(B list $B$r:n$k!#(B
+         ((equal (car l) "BibTeX")
+          (append (list (car l) "%(bibtex) %s") (cddr l)))
+         ((equal (car l) "Index")
+          (append (list (car l) "%(makeindex) %s") (cddr l)))
+         ;; $B$=$l0J30$N>l9g$O(B l $B$=$N$b$N$r;H$&!#(B
+         (t
+          l)))
+       TeX-command-list))
 
 ;; $B=gD4$K9T$1$PITMW$K$J$k!#(B
 (setq TeX-command-list
@@ -125,12 +139,11 @@ For detail, see `TeX-command-list', to which this list is 
appended."
              '(("-" "" ignore nil t)) ;; separator for command menu
              TeX-command-list))
 
-;; $B;CDj=hCV!#(Btex.el $B$K<h$j9~$s$G$b$i$($k$H$h$$!#(B
-;; Replace the entries only if they're already there.
-(when (assoc "BibTeX" TeX-command-list)
-  (setcar (cdr (assoc "BibTeX" TeX-command-list)) "%(bibtex) %s"))
-(when (assoc "Index" TeX-command-list)
-  (setcar (cdr (assoc "Index" TeX-command-list)) "%(makeindex) %s"))
+;; Define before first use.
+(defvar japanese-TeX-mode nil
+  "Non-nil means the current buffer handles Japanese TeX/LaTeX.")
+(make-variable-buffer-local 'japanese-TeX-mode)
+(put 'japanese-TeX-mode 'permanent-local t)
 
 (setq TeX-expand-list-builtin
       (append
@@ -215,11 +228,13 @@ For detail, see `TeX-command-list', to which this list is 
appended."
        TeX-view-predicate-list-builtin))
 
 (unless (memq system-type '(windows-nt darwin))
-  (setcar (cadr (assoc "xdvi" TeX-view-program-list-builtin))
-         "%(xdvi) -unique")
+  (let ((l (assoc "xdvi" TeX-view-program-list-builtin)))
+    (when l
+      (setcar (cadr l) "%(xdvi) -unique")
+      (setcdr (cdr l) '("%(xdvi)"))))
   (setq TeX-view-program-list-builtin
        (append TeX-view-program-list-builtin
-         '(("MuPDF" "mupdf %o" "mupdf")))))
+               '(("MuPDF" "mupdf %o" "mupdf")))))
 
 ;; $B$3$l$O(B tex.el $B$K<h$jF~$l$F$b$i$&$N$OFq$7$$$+!)(B
 ;; tex-jp.el $B$,address@hidden"(Bdvi viewer $B$N%G%U%)%k%H$,(B dviout 
$B$K(B