Latex，Emacs：错误时自动打开*TeX Help*缓冲区并在更正错误后关闭它？

Question

我使用Emacs latexmk function throws me into an empty buffer底部的Ivan Andrus定义的函数TeX-parse-error，以便在编译过程中出现错误时自动打开*TeX Help*缓冲区（C-c C-c）。更正错误并再次编译后，*TeX Help* 缓冲区保持打开状态（尽管错误已被更正）。有没有办法调整函数（不幸的是，我没有 elisp 编程经验），以便在错误得到解决时关闭 *TeX Help* 缓冲区，如果错误未解决，则更新（并且仍然打开）？这将节省大量的输入，例如 C-c ' 以显示 *TeX 帮助 * 缓冲区和 C-x 1 以再次隐藏它。

Answer 1

首先，让我们定义一个函数，它找到*TeX Help* 缓冲区，如果存在，关闭它的窗口，然后杀死缓冲区：

(defun demolish-tex-help ()
  (interactive)
  (if (get-buffer "*TeX Help*") ;; Tests if the buffer exists
      (progn ;; Do the following commands in sequence
        (if (get-buffer-window (get-buffer "*TeX Help*")) ;; Tests if the window exists
            (delete-window (get-buffer-window (get-buffer "*TeX Help*")))
          ) ;; That should close the window
        (kill-buffer "*TeX Help*") ;; This should kill the buffer
        )
    )
  )

现在，当您调用用于编译的任何函数时，您必须调用它。以其他页面为例，您可以将 Ivan Andrus 的函数修改为：

(defun run-latexmk ()
  (interactive)
  (let ((TeX-save-query nil)
        (TeX-process-asynchronous nil)
        (master-file (TeX-master-file)))
    (TeX-save-document "")
    (TeX-run-TeX "latexmk"
                 (TeX-command-expand "latexmk %t" '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 "latexmk done")))))

(add-hook 'LaTeX-mode-hook
          (lambda () (local-set-key (kbd "C-0") #'run-latexmk)))

（注意：这实际上对我不起作用，因为我的latexmk搞砸了，所以我没有成功测试它。但是如果Ivan的版本对你有用，那么这也应该。）

所以现在，任何时候你用这个函数调用latexmk（例如，通过点击C-0），一旦编译完成，它就会检查错误。如果出现错误，它会自动打开帮助窗口并获取第一个错误。如果没有，它检查帮助缓冲区是否打开；如果是这样，它会关闭该窗口并终止缓冲区。

Answer 2

注意：经过一番澄清，我发现以下内容与所要求的并不完全一致。我对这个问题的其他答案应该可以完成这项工作。

看起来自动打开缓冲区需要更改运行 Latex 时调用的函数。 （至少，我找不到任何可以让你这样做的钩子。）这实际上是你提到的那个问题的早期答案中所做的事情之一。特别是线条

    (if (plist-get TeX-error-report-switches (intern master-file))
    (TeX-next-error t)
  (minibuffer-message "latexmk done"))))

检查是否有错误。如果是，则函数运行TeX-next-error；如果不是，它只会打印消息。因此，您可能想尝试安装该功能。

自动关闭帮助缓冲区只需要对 Ivan Andrus 的功能稍作调整即可。在“没有更多错误”周围的区域中，只需将相关部分替换为：

     ((null
       (re-search-forward regexp nil t))
      ;; No more errors.
      (message "No more errors.")
      (beep)
  (delete-window (get-buffer-window (get-buffer "*TeX Help*")))
  (kill-buffer "*TeX Help*")
      (TeX-pop-to-buffer old)
      nil)

这实际上会在关闭窗口后杀死帮助缓冲区，但如果您出于某种原因不喜欢它，可以将其注释掉。

另一个不错的选择是将(setq TeX-display-help nil) 放入您的~/.emacs。有了这个，帮助缓冲区甚至永远不会显示。相反，一条描述错误的简短消息被放入迷你缓冲区，而光标则放在原始的坏行上。 （无论如何，我从来没有发现大部分帮助输出有用。）

最后，您可能想为TeX-next-error 尝试另一个键绑定，因为C-c ' 很尴尬。