diff options
| -rw-r--r-- | pants.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/pants.el b/pants.el index 7f7619b..9fe23a9 100644 --- a/pants.el +++ b/pants.el @@ -116,11 +116,11 @@ (set (make-local-variable 'compilation-exit-message-function) (lambda (status code msg) (when (and - (eq status 'exit) + (equal status 'exit) (zerop code) - (and pants-bury-compilation-buffer t) - (get-buffer *pants-compilation-buffer*)) - (bury-buffer)) + (and pants-bury-compilation-buffer t)) + (bury-buffer (get-buffer *pants-compilation-buffer*)) + (delete-window (get-buffer-window (get-buffer *pants-compilation-buffer*)))) (cons msg code)))) (defun pants--compile (command) |