diff options
Diffstat (limited to 'lisp/use-package/bind-key.el')
| -rw-r--r-- | lisp/use-package/bind-key.el | 22 |
1 files changed, 14 insertions, 8 deletions
diff --git a/lisp/use-package/bind-key.el b/lisp/use-package/bind-key.el index f5477945b4b..70a83e8a6e4 100644 --- a/lisp/use-package/bind-key.el +++ b/lisp/use-package/bind-key.el @@ -237,14 +237,20 @@ function symbol (unquoted)." ;; Process any initial keyword arguments (let ((cont t)) (while (and cont args) - (if (pcase (car args) - (`:map (setq map (cadr args))) - (`:prefix-docstring (setq doc (cadr args))) - (`:prefix-map (setq prefix-map (cadr args))) - (`:prefix (setq prefix (cadr args))) - (`:filter (setq filter (cadr args)) t) - (`:menu-name (setq menu-name (cadr args))) - (`:package (setq pkg (cadr args)))) + (if (cond ((eq :map (car args)) + (setq map (cadr args))) + ((eq :prefix-docstring (car args)) + (setq doc (cadr args))) + ((eq :prefix-map (car args)) + (setq prefix-map (cadr args))) + ((eq :prefix (car args)) + (setq prefix (cadr args))) + ((eq :filter (car args)) + (setq filter (cadr args)) t) + ((eq :menu-name (car args)) + (setq menu-name (cadr args))) + ((eq :package (car args)) + (setq pkg (cadr args)))) (setq args (cddr args)) (setq cont nil)))) |