From afba3f97aee13d6d52b577dc28089d9fd9596bf0 Mon Sep 17 00:00:00 2001 From: Tom Willemsen Date: Fri, 22 Mar 2013 13:37:00 +0100 Subject: [PATCH] Emacs: Hide compilation window more consistently --- emacs/site-lisp/ext.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) 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."