From 869ff53ab906e818d92656f315ad2113118ea49e Mon Sep 17 00:00:00 2001 From: Noam Postavsky Date: Mon, 14 Apr 2014 00:01:28 -0400 Subject: [PATCH] bind-keys: ,@(when map (list map)) => map Omitting map is same as passing nil. --- lisp/use-package/bind-key.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/use-package/bind-key.el b/lisp/use-package/bind-key.el index bb4bf13f518..bd8aa626cba 100644 --- a/lisp/use-package/bind-key.el +++ b/lisp/use-package/bind-key.el @@ -188,12 +188,12 @@ function symbol (unquoted)." `((defvar ,prefix-map) ,@(when doc `((put ',prefix-map 'variable-documentation ,doc))) (define-prefix-command ',prefix-map) - (bind-key ,prefix ',prefix-map ,@(when map (list map))))) + (bind-key ,prefix ',prefix-map ,map))) ,@(mapcar (lambda (form) `(bind-key ,(if prefix (concat prefix " " (car form)) (car form)) ',(cdr form) - ,@(when map (list map)))) + ,map)) key-bindings)))) (defun get-binding-description (elem) -- 2.39.2