branch: externals/auctex commit 3ca01062a578e1dd1c641ca34001b5e07a72936a Author: Mosè Giordano <m...@gnu.org> Commit: Mosè Giordano <m...@gnu.org>
Guard setcar with appropriate test * tex-jp.el (assoc): Replace second element of "BibTeX" and "Index" entries of `TeX-command-list' only if they are already there. This variable is customizable and users may have removed them. Reported by jfbu. --- tex-jp.el | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/tex-jp.el b/tex-jp.el index cfc37bf..e08d702 100644 --- a/tex-jp.el +++ b/tex-jp.el @@ -124,8 +124,11 @@ For detail, see `TeX-command-list', to which this list is appended." TeX-command-list)) ;; $B;CDj=hCV!#(Btex.el $B$K<h$j9~$s$G$b$i$($k$H$h$$!#(B -(setcar (cdr (assoc "BibTeX" TeX-command-list)) "%(bibtex) %s") -(setcar (cdr (assoc "Index" TeX-command-list)) "%(makeindex) %s") +;; 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")) ;; $B;CDj=hCV!#(Btex.el $B$K<h$j9~$s$G$b$i$($k$H$h$$!#(B (setq TeX-expand-list