[elpa] master 69bb4a4 13/27: Fix `kbd' interpretting "" char-by-char

[Oleh Krehel]

branch: master
commit 69bb4a41c072430e444db4890941046ed24dc58d
Author: Oleh Krehel <ohwoeo...@gmail.com>
Commit: Oleh Krehel <ohwoeo...@gmail.com>

    Fix `kbd' interpretting "<tab>" char-by-char
    
    * hydra.el (hydra-create): Update.
    
    Fixes #6.
---
 hydra.el |    4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/hydra.el b/hydra.el
index 92019d8..fa21e65 100644
--- a/hydra.el
+++ b/hydra.el
@@ -84,7 +84,7 @@ When `(keymapp METHOD)`, it becomes:
          (heads (eval heads))
          (names (mapcar
                  (lambda (x)
-                   (define-key keymap (car x)
+                   (define-key keymap (kbd (car x))
                      (intern (format "hydra-%s-%S" body (cadr x)))))
                  heads))
          (method (cond ((null method)
@@ -131,7 +131,7 @@ Call the head: `%S'."
           heads names)
        ,@(cl-mapcar
           (lambda (head name)
-            `(,method ,(kbd (concat body " " (car head))) #',name))
+            `(,method ,(vconcat (kbd body) (kbd (car head))) #',name))
           heads names))))
 
 (provide 'hydra)