branch: elpa/hyperdrive
commit 7e31d167ff3434cd74fd8531fe5588ec2c1cbef7
Author: Joseph Turner <jos...@ushin.org>
Commit: Joseph Turner <jos...@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"
