[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/cape f021305d20: Avoid compilation warning
|
From: |
ELPA Syncer |
|
Subject: |
[elpa] externals/cape f021305d20: Avoid compilation warning |
|
Date: |
Sun, 14 Jan 2024 07:04:06 -0500 (EST) |
branch: externals/cape
commit f021305d20a40021058fdd31f9acddc86e463eaf
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>
Avoid compilation warning
---
cape.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/cape.el b/cape.el
index 9070ed3df0..e1e2875194 100644
--- a/cape.el
+++ b/cape.el
@@ -906,7 +906,7 @@ The functions `cape-wrap-super' and `cape-capf-super' are
experimental."
for cand in-ref cands do
(if (eq (gethash cand ht t) t)
(puthash cand plist ht)
- (setf cand (propertize cand #'cape-capf-super
+ (setf cand (propertize cand 'cape-capf-super
(cons cand plist)))))
(push cands candidates)))
(setq cand-ht ht)
@@ -925,7 +925,7 @@ The functions `cape-wrap-super' and `cape-capf-super' are
experimental."
,@(mapcan
(lambda (prop)
(list prop (lambda (cand &rest args)
- (let ((ref (get-text-property 0 #'cape-capf-super
cand)))
+ (let ((ref (get-text-property 0 'cape-capf-super
cand)))
(when-let ((fun (plist-get
(or (cdr ref)
(and cand-ht (gethash cand
cand-ht)))
| [Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals/cape f021305d20: Avoid compilation warning,
ELPA Syncer <=