diff --git a/emacs/site-lisp/ext.el b/emacs/site-lisp/ext.el
index d6abaa6..d9e1973 100644
--- a/emacs/site-lisp/ext.el
+++ b/emacs/site-lisp/ext.el
@@ -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."