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

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



reply via email to

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