branch: externals/leaf
commit f0a1cf9e0ef3e716ca1b9a5ca7b3a5cd8aeb41ae
Author: Naoya Yamashita <[email protected]>
Commit: Naoya Yamashita <[email protected]>
use backquote instead of cons
---
leaf.el | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/leaf.el b/leaf.el
index 2744009..c007de7 100644
--- a/leaf.el
+++ b/leaf.el
@@ -67,7 +67,7 @@ Same as `list' but this macro does not evaluate any
arguments."
(defvar leaf-keywords
(leaf-list
:disabled (unless (eval (car leaf--value)) `(,@leaf--body))
- :leaf-path (progn (when (and load-in-progress (eval (car
leaf--value))) (add-to-list 'leaf--paths (cons leaf--name load-file-name)))
`(,@leaf--body))
+ :leaf-path (progn (when (and load-in-progress (eval (car
leaf--value))) (add-to-list 'leaf--paths `(,leaf--name . ,load-file-name)))
`(,@leaf--body))
:leaf-protect (if (and leaf--body (eval (car leaf--value)))
`((leaf-handler-leaf-protect ,leaf--name ,@leaf--body)) `(,@leaf--body))
:load-path `(,@(mapcar (lambda (elm) `(add-to-list 'load-path
,elm)) leaf--value) ,@leaf--body)
:load-path* `(,@(mapcar (lambda (elm) `(add-to-list 'load-path
(locate-user-emacs-file ,elm))) leaf--value) ,@leaf--body)
