Question

我尝试根据以下代码编写函数：Latex, Emacs: automatically open *TeX Help* buffer on error and close it after correction of the error?

我想用texi2dvi替换latexmk，但TeX-master-file不包含结尾.tex的文件（这似乎是texi2dvi所必需的）。我发现可以使用.tex添加TeX-master-file t。但是，我不能让它工作（我不是一个elisp程序员）。这是我试过的：

;; texi2dvi 
(defun run-texi2dvi ()
  (interactive)
  (let ((TeX-save-query nil)
        (TeX-process-asynchronous nil)
        (master-file (expand-file-name (TeX-master-file t)))); append `.tex`
    (TeX-save-document "")
    (TeX-run-TeX "texi2dvi"
         (TeX-command-expand "PDFLATEX='pdflatex -synctex=1' texi2dvi -p %s" 'TeX-master-file)
                 master-file)
    (if (plist-get TeX-error-report-switches (intern master-file))
        (TeX-next-error t)
      (progn
    (demolish-tex-help)
    (minibuffer-message "texi2dvi: done.")))))

Answer 1

不知道是否有更好的方法，但这个版本应该有效。基本上，TeX-command-expand被赋予函数TeX-master-file作为内部调用的符号，并且在没有I-want-the-extension参数的情况下调用它。替换的lambda强制使用。

(defun run-texi2dvi ()
  (interactive)
  (let ((TeX-save-query nil)
        (TeX-process-asynchronous nil)
        (master-file (expand-file-name (TeX-master-file t)))); append `.tex`
    (TeX-save-document "")
    (TeX-run-TeX "texi2dvi"
         (TeX-command-expand
          "PDFLATEX='pdflatex -synctex=1' texi2dvi -p %s"
          (lambda (ext-ignored nondir)
            (TeX-master-file t nondir)))
                 master-file)
    (if (plist-get TeX-error-report-switches (intern master-file))
        (TeX-next-error t)
      (progn
    (demolish-tex-help)
    (minibuffer-message "texi2dvi: done.")))))

Answer 2

请点击此处查看问题的详细说明和简单的解决方法：https://tex.stackexchange.com/questions/67244/how-to-set-up-texi2dvi-with-synctex-and-error-handling/67384#67384

Elisp / texi2dvi：如何从Emacs拨打texi2dvi？

2 个答案: