[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/auctex 07a2903 82/95: Don't alter standard value or sav
From: |
Tassilo Horn |
Subject: |
[elpa] externals/auctex 07a2903 82/95: Don't alter standard value or saved value themselves of customize option |
Date: |
Sun, 16 Apr 2017 01:27:01 -0400 (EDT) |
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
- [elpa] externals/auctex a46c307 77/95: Improve fontification of verbatim macros in style/minted.el, (continued)
- [elpa] externals/auctex a46c307 77/95: Improve fontification of verbatim macros in style/minted.el, Tassilo Horn, 2017/04/16
- [elpa] externals/auctex 83890d6 86/95: Update package options in style/amsmath.el, Tassilo Horn, 2017/04/16
- [elpa] externals/auctex 94b227d 89/95: * doc/auctex.texi (Selecting a Command): Document `TeX-ispell-verb-delimiters'., Tassilo Horn, 2017/04/16
- [elpa] externals/auctex 4225941 59/95: Modify `TeX-expand-list-builtin' instead of `TeX-expand-list', Tassilo Horn, 2017/04/16
- [elpa] externals/auctex 79361b5 58/95: Add new style/fvextra.el, Tassilo Horn, 2017/04/16
- [elpa] externals/auctex d0908cb 51/95: Fix auto selection of japanese TeX engine, Tassilo Horn, 2017/04/16
- [elpa] externals/auctex aac8694 67/95: Use compat function `TeX-replace-regexp-in-string' in core files, Tassilo Horn, 2017/04/16
- [elpa] externals/auctex 5a84d95 88/95: Fix `paragraph-start' and `paragraph-separate', Tassilo Horn, 2017/04/16
- [elpa] externals/auctex 618bdf1 85/95: Append \b to regexp built from TeX control words, Tassilo Horn, 2017/04/16
- [elpa] externals/auctex 0cde29b 87/95: ; * tex-ispell.el (TeX-ispell-verb-delimiters): Remove `*'., Tassilo Horn, 2017/04/16
- [elpa] externals/auctex 07a2903 82/95: Don't alter standard value or saved value themselves of customize option,
Tassilo Horn <=
- [elpa] externals/auctex 194a8f8 62/95: Add LaTeX inline math delimiters to Ispell skip list, Tassilo Horn, 2017/04/16
- [elpa] externals/auctex 7390999 61/95: ; Simplify insertion of a newline after label, Tassilo Horn, 2017/04/16
- [elpa] externals/auctex 6a298a8 47/95: Fix documents and add trivial improvements., Tassilo Horn, 2017/04/16
- [elpa] externals/auctex a286e8b 57/95: Improve parsing capabilities of style/fancyvrb.el, Tassilo Horn, 2017/04/16
- [elpa] externals/auctex 11e234b 55/95: Remove spurious entries of view settings., Tassilo Horn, 2017/04/16
- [elpa] externals/auctex 83a875b 83/95: ; * tex.el (TeX-ispell-tex-arg-verb-end): Drop unnecessary `format'., Tassilo Horn, 2017/04/16
- [elpa] externals/auctex 2116248 94/95: * doc/changes.texi: Update with recent changes., Tassilo Horn, 2017/04/16
- [elpa] externals/auctex 65e56e1 93/95: ; Make sure that `regex-opt' builds a shy group., Tassilo Horn, 2017/04/16
- [elpa] externals/auctex e6c95e9 78/95: * tests/latex/fontification-verb-macros.tex: New file., Tassilo Horn, 2017/04/16
- [elpa] externals/auctex a8dba19 60/95: Fix addition of key=val's, Tassilo Horn, 2017/04/16