emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/hyperdrive 7cd221feb6 08/15: Tidy: (hyperdrive-write-buffe


From: ELPA Syncer
Subject: [nongnu] elpa/hyperdrive 7cd221feb6 08/15: Tidy: (hyperdrive-write-buffer) Rename let-bound var
Date: Thu, 2 May 2024 18:58:24 -0400 (EDT)

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

    Tidy: (hyperdrive-write-buffer) Rename let-bound var
---
 hyperdrive.el | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/hyperdrive.el b/hyperdrive.el
index bb3328d66c..a46c656756 100644
--- a/hyperdrive.el
+++ b/hyperdrive.el
@@ -434,14 +434,14 @@ use, see `hyperdrive-write'."
   (pcase-let (((cl-struct hyperdrive-entry hyperdrive name) entry)
               (url (he/url entry))
               (buffer (current-buffer))
-              (existing-buffer (h//find-buffer-visiting
-                                entry (eq 'any-version h/reuse-buffers)))
+              (buffer-visiting-entry (h//find-buffer-visiting
+                                      entry (eq 'any-version h/reuse-buffers)))
               (current-entry hyperdrive-current-entry))
     (unless (or overwritep (not (he/at nil entry)))
       (unless (y-or-n-p
               (format "File %s exists; overwrite?" (h//format-entry entry)))
         (h/user-error "Canceled"))
-      (when (buffer-live-p existing-buffer)
+      (when (buffer-live-p buffer-visiting-entry)
         (unless (y-or-n-p (format "A buffer is visiting %s; proceed?"
                                   (h//format-entry entry)))
           (h/user-error "Aborted"))))
@@ -475,8 +475,8 @@ use, see `hyperdrive-write'."
                   (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.
-                    (when (buffer-live-p existing-buffer)
-                      (kill-buffer existing-buffer))
+                    (when (buffer-live-p buffer-visiting-entry)
+                      (kill-buffer buffer-visiting-entry))
                     (rename-buffer (h//generate-new-buffer-name entry)))
                   (set-buffer-modified-p nil)
                   ;; Update the visited file modtime so undo commands



reply via email to

[Prev in Thread] Current Thread [Next in Thread]