[elpa] externals/leaf f093a7e92d 2/6: support custom symbol

[ELPA Syncer]

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

    support custom symbol
---
 leaf-tests.el | 9 +++++++++
 leaf.el       | 6 +++++-
 2 files changed, 14 insertions(+), 1 deletion(-)

diff --git a/leaf-tests.el b/leaf-tests.el
index fbaa5c3080..abf2d00c95 100644
--- a/leaf-tests.el
+++ b/leaf-tests.el
@@ -325,6 +325,15 @@ Example:
              :lisp-dir "lisp"))
      (prog1 'bbdb
        (leaf-handler-vc bbdb
+         (bbdb
+          (:url "https://git.savannah.nongnu.org/git/bbdb.git"; :lisp-dir 
"lisp")))))
+
+    ((leaf *bbdb-custom*
+       :vc (bbdb
+            :url "https://git.savannah.nongnu.org/git/bbdb.git";
+            :lisp-dir "lisp"))
+     (prog1 '*bbdb-custom*
+       (leaf-handler-vc *bbdb-custom*
          (bbdb
           (:url "https://git.savannah.nongnu.org/git/bbdb.git"; :lisp-dir 
"lisp")))))))
 
diff --git a/leaf.el b/leaf.el
index 16c2a67c70..905b7d23e5 100644
--- a/leaf.el
+++ b/leaf.el
@@ -320,7 +320,11 @@ Sort by `leaf-sort-leaf--values-plist' in this order.")
        `(,val ,(delq nil (mapcar (lambda (elm) (when (symbolp elm) elm)) 
fns)))))
 
     ((memq leaf--key '(:vc))
-     (mapcar (lambda (elm) `(,leaf--name ,elm)) leaf--value))
+     (mapcar (lambda (elm)
+               (if (keywordp (car elm))
+                   `(,leaf--name ,elm)
+                 `(,(car elm) ,(cdr elm))))
+             leaf--value))
 
     (t
      leaf--value))