[Bug-AUCTeX] 11.87; Bug in the expansion of %' in TeX-expand-list

[Florent Rougon]

Hello,

Here is a tiny patch for a bug in the expansion of %' in TeX-expand-list
(tex.el): when it inserts the concatenation of TeX-command-text and
" \"\\input\"" into the command line being constructed, it does:

  (setq pos (+ (length TeX-command-text) 9))

where 9 is the length of " \"\\input\"". However, this number
(+ (length TeX-command-text) 9) should be *added to the current value*
of pos instead of replacing it. The result with the buggy code is that
TeX-command-expand will start expanding the command line under
construction again from (+ (length TeX-command-text) 9), which is
earlier than it should be (and therefore expand things that ought to be
left as is).

One can exhibit the problem by putting for instance %%%% before the %'
in a TeX-command-list entry. Normally, this sequence should expand to
%%. However, because of the bug, it is expanded a second time after %'
has been expanded, thus yielding a single %. This is illustrated in the
attached file auctex-bugtest.el.

Thanks for your work!

Emacs  : GNU Emacs 23.4.1 (x86_64-pc-linux-gnu, GTK+ Version 2.24.10)
 of 2012-09-08 on trouble, modified by Debian
Package: 11.87

current state:
==============
(setq
 AUCTeX-date "2012-11-30"
 window-system 'x
 LaTeX-version "2e"
 TeX-style-path '("auctex-style" "auctex-auto" "/var/lib/auctex/emacs23/"
                  "/usr/share/emacs/site-lisp/auctex/style"
                  "/home/flo/.emacs.d/auctex/auto"
                  "/home/flo/.emacs.d/auctex/style")
 TeX-auto-save t
 TeX-parse-self t
 TeX-master t
 TeX-command-list '(("TeX" "%(PDF)%(tex) %`%S%(PDFout)%(mode)%' %t"
 TeX-run-TeX
                     nil (plain-tex-mode ams-tex-mode texinfo-mode) :help
                     "Run plain TeX")
                    ("LaTeX" "%`%l%(mode)%' %t" TeX-run-TeX nil
                     (latex-mode doctex-mode) :help "Run LaTeX")
                    ("Makeinfo" "makeinfo %t" TeX-run-compile nil
                     (texinfo-mode) :help "Run Makeinfo with Info output")
                    ("Makeinfo HTML" "makeinfo --html %t" TeX-run-compile nil
                     (texinfo-mode) :help "Run Makeinfo with HTML output")
                    ("AmSTeX" "%(PDF)amstex %`%S%(PDFout)%(mode)%' %t"
                     TeX-run-TeX nil (ams-tex-mode) :help "Run AMSTeX")
                    ("ConTeXt" "texexec --once --texutil %(execopts)%t"
                     TeX-run-TeX nil (context-mode) :help "Run ConTeXt once")
                    ("ConTeXt Full" "texexec %(execopts)%t" TeX-run-TeX nil
                     (context-mode) :help "Run ConTeXt until completion")
                    ("BibTeX" "bibtex %s" TeX-run-BibTeX nil t :help
                     "Run BibTeX")
                    ("Biber" "biber %s" TeX-run-Biber nil t :help "Run Biber")
                    ("View" "%V" TeX-run-discard-or-function t t :help
                     "Run Viewer")
                    ("Print" "%p" TeX-run-command t t :help "Print the file")
                    ("Queue" "%q" TeX-run-background nil t :help
                     "View the printer queue" :visible TeX-queue-command)
                    ("File" "%(o?)dvips %d -o %f " TeX-run-command t t :help
                     "Generate PostScript file")
                    ("Index" "makeindex %s" TeX-run-command nil t :help
                     "Create index file")
                    ("Check" "lacheck %s" TeX-run-compile nil (latex-mode)
                     :help "Check LaTeX file for correctness")
                    ("Spell" "(TeX-ispell-document \"\")" TeX-run-function nil
                     t :help "Spell-check the document")
                    ("Clean" "TeX-clean" TeX-run-function nil t :help
                     "Delete generated intermediate files")
                    ("Clean All" "(TeX-clean t)" TeX-run-function nil t :help
                     "Delete generated intermediate and output files")
                    ("Other" "" TeX-run-command t t :help
                     "Run an arbitrary command")
                    ("Dvips" "dvips %d -o %f" TeX-run-command nil nil)
                    ("View with xdvi" "%v" TeX-run-silent nil nil)
                    ("View with xdvi -paper a4r" "%v -paper a4r"
 TeX-run-silent
                     nil nil)
                    ("View with the default PostScript viewer" "see %f"
                     TeX-run-discard nil nil)
                    ("View with gv" "gv %f" TeX-run-discard nil nil)
                    ("View with xpdf" "xpdf %s.pdf" TeX-run-silent nil nil)
                    ("View with okular" "okular %s.pdf" TeX-run-silent nil nil))
 )

-- 
Florent

auctex_TeX-expand-list.patch
Description: Patch

auctex-bugtest.el
Description: ELisp file to reproduce the bug easily