[elpa] externals/leaf f0a1cf9 17/46: use backquote instead of cons

[Stefan Monnier]

branch: externals/leaf
commit f0a1cf9e0ef3e716ca1b9a5ca7b3a5cd8aeb41ae
Author: Naoya Yamashita <conao3@gmail.com>
Commit: Naoya Yamashita <conao3@gmail.com>

    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)