[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
- [nongnu] elpa/hyperdrive updated (90ea9beb10 -> d2b362b956), ELPA Syncer, 2024/05/02
- [nongnu] elpa/hyperdrive 76b896b964 02/15: Add: (hyperdrive-blob-mode) Bindings for traversing version history, ELPA Syncer, 2024/05/02
- [nongnu] elpa/hyperdrive 508ae82221 03/15: Meta: Update changelog, ELPA Syncer, 2024/05/02
- [nongnu] elpa/hyperdrive 77934a717e 01/15: Remove: (he/latest) Unused function, ELPA Syncer, 2024/05/02
- [nongnu] elpa/hyperdrive a3f55238bb 06/15: Fix: (h/write-buffer) Ensure only one buffer is visiting an entry, ELPA Syncer, 2024/05/02
- [nongnu] elpa/hyperdrive 60bb037911 09/15: Change: (h/write-buffer) Only kill buffer visiting latest version, ELPA Syncer, 2024/05/02
- [nongnu] elpa/hyperdrive f1f0115e7b 10/15: Meta: Fix typo in changelog, ELPA Syncer, 2024/05/02
- [nongnu] elpa/hyperdrive 857dcbfeed 04/15: Docs: Document hyperdrive-blob-mode bindings, ELPA Syncer, 2024/05/02
- [nongnu] elpa/hyperdrive a6b98c19c3 05/15: Fix: Allow visiting two hyperdrive files with the same name, ELPA Syncer, 2024/05/02
- [nongnu] elpa/hyperdrive aa827bb78b 07/15: Meta: Add notes to DEV.org about hyperdrive-write-buffer, ELPA Syncer, 2024/05/02
- [nongnu] elpa/hyperdrive 7cd221feb6 08/15: Tidy: (hyperdrive-write-buffer) Rename let-bound var,
ELPA Syncer <=
- [nongnu] elpa/hyperdrive 4ce5c12754 12/15: Uniquify hyperdrive file buffer names, ELPA Syncer, 2024/05/02
- [nongnu] elpa/hyperdrive 8bb8421122 13/15: Meta: Remove build badges from README, ELPA Syncer, 2024/05/02
- [nongnu] elpa/hyperdrive 5bbb2283e0 14/15: Meta: Convert README.md to README.org, ELPA Syncer, 2024/05/02
- [nongnu] elpa/hyperdrive d2b362b956 15/15: Meta: Fix README.org formatting, ELPA Syncer, 2024/05/02
- [nongnu] elpa/hyperdrive b6e26b7759 11/15: Change: Remove hyperdrive-reuse-buffers, ELPA Syncer, 2024/05/02