[nongnu] elpa/hyperdrive 60bb037911 09/15: Change: (h/write-buffer) Only kill buffer visiting latest version

[ELPA Syncer]

branch: elpa/hyperdrive
commit 60bb037911fa3b3163f69a68a290f607b66f94b6
Author: Joseph Turner <joseph@ushin.org>
Commit: Joseph Turner <joseph@ushin.org>

    Change: (h/write-buffer) Only kill buffer visiting latest version
---
 hyperdrive.el | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

diff --git a/hyperdrive.el b/hyperdrive.el
index a46c656756..db15d4f0e9 100644
--- a/hyperdrive.el
+++ b/hyperdrive.el
@@ -434,8 +434,7 @@ use, see `hyperdrive-write'."
   (pcase-let (((cl-struct hyperdrive-entry hyperdrive name) entry)
               (url (he/url entry))
               (buffer (current-buffer))
-              (buffer-visiting-entry (h//find-buffer-visiting
-                                      entry (eq 'any-version h/reuse-buffers)))
+              (buffer-visiting-entry (h//find-buffer-visiting entry))
               (current-entry hyperdrive-current-entry))
     (unless (or overwritep (not (he/at nil entry)))
       (unless (y-or-n-p
@@ -472,9 +471,7 @@ use, see `hyperdrive-write'."
                   (setf (he/type entry) "text/plain; charset=utf-8")
                   (setq-local h/current-entry entry)
                   (setf buffer-file-name nil)
-                  (unless (and current-entry (he/equal-p entry current-entry))
-                    ;; If the current buffer is not already visiting the latest
-                    ;; version of ENTRY, kill that buffer and rename this one.
+                  (unless (eq buffer buffer-visiting-entry)
                     (when (buffer-live-p buffer-visiting-entry)
                       (kill-buffer buffer-visiting-entry))
                     (rename-buffer (h//generate-new-buffer-name entry)))