[Bug-AUCTeX] 2005-06-15; wrong-type-argument with LaTeX-includegraphics-read-file-relative

[Franz Haeuslschmid]

Dear bug-fixing team,

I am getting a `wrong-type-argument' error in a multi-file
document, when I try to

(setq LaTeX-includegraphics-read-file
      (quote LaTeX-includegraphics-read-file-relative))

as advised in
<URL:news:address@hidden>.  The steps
to reproduce are as follows:

 * Set up two files

,----[ ~/Desktop/master.tex ]
| \documentclass{scrbook}
| \usepackage{graphicx}
| \begin{document}
| \end{document}
| 
| %%% Local Variables:
| %%% mode: latex
| %%% TeX-master: t
| %%% End:
`----

,----[ ~/Desktop/subdir/servant.tex ]
| %%% Local Variables:
| %%% mode: latex
| %%% TeX-master: "../master"
| %%% End:
`----

 * Open, edit and save them after having evaluated

  (setq TeX-auto-save t)
  (setq TeX-parse-self t)

 * Start vanilla'd XEmacs and evaluate

  (setq debug-on-error t
        stack-trace-on-error t)
  (require 'tex-site)
  (setq LaTeX-includegraphics-read-file
        (quote LaTeX-includegraphics-read-file-relative))
  (setq TeX-auto-save t)
  (setq TeX-parse-self t)

  * Open `servant.tex' and start including a graphic:

  C-c RET includegraphics RET

  * The error is triggered now.  The presented backtrace contains
    this:

Debugger entered--Lisp error: (wrong-type-argument listp #<compiled-function 
(fname) "...(11)" [fname file-directory-p string-match 
LaTeX-includegraphics-extensions] 3>)
  read-from-minibuffer("Image file: " "~\\Desktop\\subdir\\" #<keymap 
read-file-name-map size 2 0xd64> nil #<compiled-function (fname) "...(11)" 
[fname file-directory-p string-match LaTeX-includegraphics-extensions] 3> nil 
"~\\Desktop\\subdir\\servant.tex")
  read-file-name-2(#<compiled-function (fname) "...(11)" [fname 
file-directory-p string-match LaTeX-includegraphics-extensions] 3> "Image file: 
" nil "~\\Desktop\\subdir\\servant.tex" nil nil read-file-name-internal)
  read-file-name-1(file #<compiled-function (fname) "...(11)" [fname 
file-directory-p string-match LaTeX-includegraphics-extensions] 3> "Image file: 
" nil "~\\Desktop\\subdir\\servant.tex" nil nil read-file-name-internal)
  read-file-name("Image file: " nil nil nil nil #<compiled-function (fname) 
"...(11)" [fname file-directory-p string-match 
LaTeX-includegraphics-extensions] 3>)
  LaTeX-includegraphics-read-file-relative()
  LaTeX-arg-includegraphics(nil)
  TeX-parse-argument(nil LaTeX-arg-includegraphics)
  TeX-parse-arguments((LaTeX-arg-includegraphics))
  TeX-parse-macro("includegraphics" (LaTeX-arg-includegraphics))
  #<compiled-function (symbol) "...(24)" [TeX-default-macro symbol "" 
TeX-parse-macro assoc TeX-symbol-list] 5 
("d:\\Src\\Build\\XEmacs\\site-packages\\lisp\\auctex\\tex.elc" . 53102) (list 
(completing-read ... ...))>("")
  call-interactively(TeX-insert-macro)


It is the first time, that I customized
`LaTeX-includegraphics-read-file'.  Well, until last Sunday, I
even have not been aware of that variable.

Franz.

Emacs  : XEmacs 21.4 (patch 17) "Jumbo Shrimp" [Lucid] (i586-pc-win32) of Fri 
Apr 22 2005 on PAN
Package: 2005-06-15

current state:
==============
(setq
 AUCTeX-date "2005-06-15"
 window-system 'mswindows
 LaTeX-version "2e"
 TeX-style-path '("style" "auto"
                  "d:\\Src\\Build\\XEmacs\\site-packages\\etc\\auctex\\style"
                  "d:\\Src\\Build\\XEmacs\\var\\auctex\\")
 TeX-auto-save t
 TeX-parse-self t
 TeX-master t
 TeX-command-list '(("TeX" "%(PDF)%(tex) %S%(PDFout) \"%(mode)\\input %t\""
                     TeX-run-TeX nil
                     (plain-tex-mode ams-tex-mode texinfo-mode) :help
                     "Run plain TeX")
                    ("LaTeX" "%l \"%(mode)\\input{%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)\\input %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")
                    ("ConTeXt Clean" "texutil --purgeall" TeX-run-interactive
                     nil (context-mode) :help "Clean temporary ConTeXt files")
                    ("BibTeX" "bibtex %s" TeX-run-BibTeX nil t :help
                     "Run BibTeX")
                    ("View" "%V" TeX-run-discard 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" "<ignored>" TeX-run-ispell-on-document nil t
                     :help "Spell-check the document")
                    ("Other" "" TeX-run-command t t :help
                     "Run an arbitrary command")
                    )
 )