emacs编译缓冲区是否自动关闭？
emacs编译缓冲区是否自动关闭？
提问于 2012-06-15 08:02:42
我想在没有错误和警告时自动关闭编译缓冲区，但在有警告时显示它。有人能帮我吗？emacswiki中的这段代码只完成了第一个要求。如何改变它？
;; Helper for compilation. Close the compilation window if
;; there was no error at all.
(defun compilation-exit-autoclose (status code msg)
;; If M-x compile exists with a 0
(when (and (eq status 'exit) (zerop code))
;; then bury the *compilation* buffer, so that C-x b doesn't go there
(bury-buffer)
;; and delete the *compilation* window
(delete-window (get-buffer-window (get-buffer "*compilation*"))))
;; Always return the anticipated result of compilation-exit-message-function
(cons msg code))
;; Specify my function (maybe I should have done a lambda function)
(setq compilation-exit-message-function 'compilation-exit-autoclose)Stack Overflow用户
发布于 2013-02-12 14:28:07
jpkotta，它在大多数情况下都是有效的。有时，即使有警告，它也不会切换到编译缓冲区。因此，我对您的表单进行了更改&它现在可以工作了：
(defun bury-compile-buffer-if-successful (buffer string)
"Bury a compilation buffer if succeeded without warnings "
(if (and
(string-match "compilation" (buffer-name buffer))
(string-match "finished" string)
(not
(with-current-buffer buffer
**(goto-char 1)**
(search-forward "warning" nil t))))
(run-with-timer 1 nil
(lambda (buf)
(bury-buffer buf)
(switch-to-prev-buffer (get-buffer-window buf) 'kill))
buffer)))
(add-hook 'compilation-finish-functions 'bury-compile-buffer-if-successful)页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/11043004
复制相关文章
相似问题
腾讯云开发者
