[nongnu] elpa/hyperdrive 74a701b164 30/31: Change: (hyperdrive--mirror) Kill mirror buffer after mirroring

[ELPA Syncer]

branch: elpa/hyperdrive
commit 74a701b164ac83e5b81204c0a325aa20882e8e54
Author: Adam Porter <adam@alphapapa.net>
Commit: Adam Porter <adam@alphapapa.net>

    Change: (hyperdrive--mirror) Kill mirror buffer after mirroring
---
 hyperdrive-mirror.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/hyperdrive-mirror.el b/hyperdrive-mirror.el
index 5f51c002cf..286dd225c5 100644
--- a/hyperdrive-mirror.el
+++ b/hyperdrive-mirror.el
@@ -122,10 +122,10 @@ After uploading files, open PARENT-ENTRY."
          (queue (make-plz-queue
                  :limit hyperdrive-queue-limit
                  :finally (lambda ()
-                            (progress-reporter-done progress-reporter)
+                            (when (buffer-live-p (get-buffer 
"*hyperdrive-mirror*"))
+                              (kill-buffer "*hyperdrive-mirror*"))
                             (hyperdrive-open parent-entry)
-                            (with-current-buffer (get-buffer-create 
"*hyperdrive-mirror*")
-                              (revert-buffer nil t))))))
+                            (progress-reporter-done progress-reporter)))))
     (unless upload-files-and-urls
       (hyperdrive-user-error "No new/newer files to upload"))
     (pcase-dolist ((cl-struct hyperdrive-mirror-item file url) 
upload-files-and-urls)