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