[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/taxy 617c7c8 3/4: Example: (deffy) Change key prefix
From: |
ELPA Syncer |
Subject: |
[elpa] externals/taxy 617c7c8 3/4: Example: (deffy) Change key prefix |
Date: |
Fri, 17 Sep 2021 13:57:21 -0400 (EDT) |
branch: externals/taxy
commit 617c7c806133cd2ef58d5b93e308dd488f3e2455
Author: Adam Porter <adam@alphapapa.net>
Commit: Adam Porter <adam@alphapapa.net>
Example: (deffy) Change key prefix
---
examples/deffy.el | 7 ++++---
1 file changed, 4 insertions(+), 3 deletions(-)
diff --git a/examples/deffy.el b/examples/deffy.el
index 8efd0f0..636a90c 100644
--- a/examples/deffy.el
+++ b/examples/deffy.el
@@ -45,8 +45,9 @@
(cl-eval-when (compile load eval)
;; I don't understand why using `cl-eval-when' is necessary, but it
;; seems to be.
- (taxy-define-key-definer deffy-define-key deffy-keys "deffy"
- "FIXME: Docstring."))
+ (taxy-define-key-definer deffy-define-key deffy-keys "deffy-key"
+ ;; FIXME: Docstring.
+ ""))
(deffy-define-key file ()
(file-relative-name (deffy-def-file item) deffy-directory))
@@ -336,7 +337,7 @@ completion; with prefix, from all Deffy buffers."
(get-text-property 0 :annotation
candidate))))))
(if (= 1 (length deffy-buffers))
(setf annotate-fn (lambda (def) (deffy-column-format-docstring def 0))
- group-fn #'deffy-type)
+ group-fn #'deffy-key-type)
(setf affixation-fn #'affix
annotate-fn (lambda (def)
(deffy-column-format-docstring def 0))))