[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/hyperdrive 1f495255f4 2/3: Tidy: (-dir--yank-media-image-h
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/hyperdrive 1f495255f4 2/3: Tidy: (-dir--yank-media-image-handler) Remove old let-bindings |
Date: |
Fri, 8 Sep 2023 03:59:54 -0400 (EDT) |
branch: elpa/hyperdrive
commit 1f495255f4432c240e95e3740e7ef3f6242eed09
Author: Joseph Turner <joseph@ushin.org>
Commit: Joseph Turner <joseph@ushin.org>
Tidy: (-dir--yank-media-image-handler) Remove old let-bindings
---
hyperdrive-dir.el | 5 +----
1 file changed, 1 insertion(+), 4 deletions(-)
diff --git a/hyperdrive-dir.el b/hyperdrive-dir.el
index 76eaceed57..50665cac78 100644
--- a/hyperdrive-dir.el
+++ b/hyperdrive-dir.el
@@ -367,10 +367,7 @@ see Info node `(elisp)Yanking Media'."
(hyperdrive--entry-directory-p hyperdrive-current-entry)))
(let ((entry (hyperdrive-read-entry :predicate #'hyperdrive-writablep
:default-path (hyperdrive-entry-path
hyperdrive-current-entry)
- :allow-version-p nil))
- ;; `parent' and `ewoc' are bound for the callback.
- (parent hyperdrive-current-entry)
- (ewoc hyperdrive-ewoc))
+ :allow-version-p nil)))
(hyperdrive-api 'put (hyperdrive-entry-url entry)
:body-type 'binary
;; TODO: Pass MIME type in a header? hyper-gateway detects it for us.