Emacs: Hide compilation window more consistently

This commit is contained in:
Tom Willemsen 2013-03-22 13:37:00 +01:00
parent 161924268f
commit afba3f97ae

View file

@ -44,8 +44,9 @@
;; there were errors
(message "compilation errors, press C-x ` to visit")
;; no errors, make the compilation window go away in 0.5 seconds
(run-at-time 0.5 nil 'delete-windows-on buf)
(message "No compilation errors!")))
(when (member (buffer-name) '("*Compilation*" "*compilation*"))
(run-at-time 0.5 nil 'delete-windows-on buf)
(message "No compilation errors!"))))
(defun ext:reload-buffer ()
"Reload current buffer."