[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/hyperdrive 7e31d167ff 2/2: Fix: (hyperdrive-menu-bar-menu)
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/hyperdrive 7e31d167ff 2/2: Fix: (hyperdrive-menu-bar-menu) Fix "View file" |
Date: |
Sun, 15 Oct 2023 13:00:36 -0400 (EDT) |
branch: elpa/hyperdrive
commit 7e31d167ff3434cd74fd8531fe5588ec2c1cbef7
Author: Joseph Turner <joseph@ushin.org>
Commit: Joseph Turner <joseph@ushin.org>
Fix: (hyperdrive-menu-bar-menu) Fix "View file"
---
hyperdrive.el | 12 ++++++------
1 file changed, 6 insertions(+), 6 deletions(-)
diff --git a/hyperdrive.el b/hyperdrive.el
index 86c711a818..01927d9f27 100644
--- a/hyperdrive.el
+++ b/hyperdrive.el
@@ -855,12 +855,12 @@ The return value of this function is the retrieval
buffer."
:read-version
current-prefix-arg)))
:help "Find a file in
hyperdrive")
(vector "View File"
- (lambda ()
- (interactive)
- (hyperdrive-view-file
- (hyperdrive-read-entry
- :hyperdrive ,entry
- :read-version
current-prefix-arg)))
+ `(lambda ()
+ (interactive)
+ (hyperdrive-view-file
+ (hyperdrive-read-entry
+ :hyperdrive ,entry
+ :read-version
current-prefix-arg)))
:help "View a file in
hyperdrive")
"---"
(vector "Petname"