[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/taxy c5568d4 4/4: Examples: (deffy) Use cl-eval-when on
From: |
ELPA Syncer |
Subject: |
[elpa] externals/taxy c5568d4 4/4: Examples: (deffy) Use cl-eval-when on definers |
Date: |
Fri, 17 Sep 2021 11:57:22 -0400 (EDT) |
branch: externals/taxy
commit c5568d41ccdb4c1414ccaaac070381b0f0691b00
Author: Adam Porter <adam@alphapapa.net>
Commit: Adam Porter <adam@alphapapa.net>
Examples: (deffy) Use cl-eval-when on definers
I'm not sure why this is needed, but it seems to fix the problem that
the definers don't define things at compile time. (There are still
some nuances to Emacs's inner load/compile workings that I don't
understand.)
---
examples/deffy.el | 12 +++++++++---
1 file changed, 9 insertions(+), 3 deletions(-)
diff --git a/examples/deffy.el b/examples/deffy.el
index 6dbce4f..286e80e 100644
--- a/examples/deffy.el
+++ b/examples/deffy.el
@@ -41,8 +41,11 @@
;;;; Keys
-(taxy-define-key-definer deffy-define-key deffy-keys "deffy"
- "FIXME: Docstring.")
+(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."))
(deffy-define-key file ()
(file-relative-name (deffy-def-file item) deffy-directory))
@@ -68,7 +71,10 @@
;;;; Columns
-(taxy-magit-section-define-column-definer "deffy")
+(cl-eval-when (compile load eval)
+ ;; I don't understand why using `cl-eval-when' is necessary, but it
+ ;; seems to be.
+ (taxy-magit-section-define-column-definer "deffy"))
(deffy-define-column "Definition" (:max-width 45 :face
font-lock-function-name-face)
(let ((form-defines (pcase-exhaustive (cadr (deffy-def-form item))