diff options
| author |  Tom Willemsen | 2013-03-22 13:37:00 +0100 |
|---|---|---|
| committer | Tom Willemsen | 2013-03-22 13:37:00 +0100 |
| commit | afba3f97aee13d6d52b577dc28089d9fd9596bf0 (patch) | |
| tree | c8ab9b8ce4574fe0ea99219af8fa287d88d3a580 | |
| parent | 161924268f1eea8d468f7aafe4a72e12a4dda752 (diff) | |
| download | dotfiles-afba3f97aee13d6d52b577dc28089d9fd9596bf0.tar.gz dotfiles-afba3f97aee13d6d52b577dc28089d9fd9596bf0.zip | |
Emacs: Hide compilation window more consistently
| -rw-r--r-- | emacs/site-lisp/ext.el | 5 |
1 files 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." |