emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/bind-map f2f7dfefbd 07/97: Assume :keys and :evil-keys are


From: ELPA Syncer
Subject: [nongnu] elpa/bind-map f2f7dfefbd 07/97: Assume :keys and :evil-keys are lists
Date: Thu, 20 Jan 2022 07:58:50 -0500 (EST)

branch: elpa/bind-map
commit f2f7dfefbdb35c5d7b41cd9ba444032408fd8351
Author: justbur <justin@burkett.cc>
Commit: justbur <justin@burkett.cc>

    Assume :keys and :evil-keys are lists
---
 bind-map.el | 10 ++--------
 1 file changed, 2 insertions(+), 8 deletions(-)

diff --git a/bind-map.el b/bind-map.el
index 7bc80e0347..ae18429a8b 100644
--- a/bind-map.el
+++ b/bind-map.el
@@ -103,14 +103,8 @@ Declare a prefix command for MAP named COMMAND-NAME."
          (activate (intern (format "%s-activate" map)))
          (activate-func (intern (format "%s-activate-function" map)))
          (prefix-cmd (plist-get args :prefix-cmd))
-         (keys (when (plist-get args :keys)
-                 (if (listp (plist-get args :keys))
-                     (mapcar 'kbd (plist-get args :keys))
-                   (list (kbd (plist-get args :keys))))))
-         (evil-keys (when (plist-get args :evil-keys)
-                      (if (listp (plist-get args :evil-keys))
-                          (mapcar 'kbd (plist-get args :evil-keys))
-                        (list (kbd (plist-get args :evil-keys))))))
+         (keys (mapcar 'kbd (plist-get args :keys)))
+         (evil-keys (mapcar 'kbd (plist-get args :evil-keys)))
          (evil-states (or (plist-get args :evil-states)
                           bind-map-default-evil-states))
          (minor-modes (plist-get args :minor-modes))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]