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

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/hyperdrive ced7570111 1/4: Fix: (h//format-entry) Don't us


From: ELPA Syncer
Subject: [nongnu] elpa/hyperdrive ced7570111 1/4: Fix: (h//format-entry) Don't use lambdas in format-spec yet
Date: Thu, 30 Nov 2023 22:00:07 -0500 (EST)

branch: elpa/hyperdrive
commit ced75701110d4976c366cd9e0bae5558a9c1bcc7
Author: Joseph Turner <joseph@ushin.org>
Commit: Joseph Turner <joseph@ushin.org>

    Fix: (h//format-entry) Don't use lambdas in format-spec yet
---
 hyperdrive-lib.el | 20 ++++++++++----------
 1 file changed, 10 insertions(+), 10 deletions(-)

diff --git a/hyperdrive-lib.el b/hyperdrive-lib.el
index 8acbec9d57..7e739eb769 100644
--- a/hyperdrive-lib.el
+++ b/hyperdrive-lib.el
@@ -1387,16 +1387,16 @@ according to FORMATS, by default `hyperdrive-formats', 
which see."
                     "")))
       (propertize
        (format-spec (or format h/default-entry-format)
-                    `((?n . ,(lambda () (fmt 'name name)))
-                      (?p . ,(lambda () (fmt 'path path)))
-                      (?v . ,(lambda () (fmt 'version version)))
-                      (?H . ,(lambda () (h//preferred-format hyperdrive nil 
formats)))
-                      (?D . ,(lambda () (h//format hyperdrive "%D" formats)))
-                      (?k . ,(lambda () (h//format hyperdrive "%k" formats)))
-                      (?K . ,(lambda () (h//format hyperdrive "%K" formats)))
-                      (?N . ,(lambda () (h//format hyperdrive "%N" formats)))
-                      (?P . ,(lambda () (h//format hyperdrive "%P" formats)))
-                      (?S . ,(lambda () (h//format hyperdrive "%S" formats)))))
+                    `((?n . ,(fmt 'name name))
+                      (?p . ,(fmt 'path path))
+                      (?v . ,(fmt 'version version))
+                      (?H . ,(h//preferred-format hyperdrive nil formats))
+                      (?D . ,(h//format hyperdrive "%D" formats))
+                      (?k . ,(h//format hyperdrive "%k" formats))
+                      (?K . ,(h//format hyperdrive "%K" formats))
+                      (?N . ,(h//format hyperdrive "%N" formats))
+                      (?P . ,(h//format hyperdrive "%P" formats))
+                      (?S . ,(h//format hyperdrive "%S" formats))))
        'help-echo (he/url entry)))))
 
 (defun h//entry-directory-p (entry)



reply via email to

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