I think this bury the compilation buffer correctly.

I want to be able to bury the compilation buffer if the compilation
was successfully. Previously, it stayed open, but now it seems to
close. I'll have to check if the `delete-windows` is doing the right
thing, though.

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)