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

[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"



reply via email to

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