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