[nongnu] elpa/bind-map fe76f92777 91/97: Add default keys and default evil-keys

[ELPA Syncer]

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

    Add default keys and default evil-keys
    
    See bind-map-default-keys and bind-map-default-evil-keys. Both nil by
    default.
---
 bind-map.el | 14 ++++++++++++--
 1 file changed, 12 insertions(+), 2 deletions(-)

diff --git a/bind-map.el b/bind-map.el
index 2532ed0aa3..65aa1d06af 100644
--- a/bind-map.el
+++ b/bind-map.el
@@ -107,10 +107,18 @@
   "Bind personal keymaps in multiple locations."
   :group 'emacs)
 
+(defcustom bind-map-default-keys nil
+  "Default for :keys when unspecified."
+  :group 'bind-map)
+
 (defcustom bind-map-default-evil-states '(normal motion visual)
   "Default states for evil bindings."
   :group 'bind-map)
 
+(defcustom bind-map-default-evil-keys nil
+  "Default for :evil-keys when unspecified."
+  :group 'bind-map)
+
 (defcustom bind-map-default-map-suffix "-bm-map"
   "Default suffix to use for `bind-map-for-major-mode' and
 `bind-map-for-minor-mode'."
@@ -262,7 +270,8 @@ a convenience."
          (active-var (intern (format "%s-active" map)))
          (prefix-cmd (or (plist-get args :prefix-cmd)
                          (intern (format "%s-prefix" map))))
-         (keys (plist-get args :keys))
+         (keys (or (plist-get args :keys)
+                   bind-map-default-keys))
          (override-minor-modes (or (plist-get args :override-minor-modes)
                                    (plist-get args :evil-use-local)))
          (override-mode (if (plist-get args :override-mode-name)
@@ -274,7 +283,8 @@ mode maps. Set up by bind-map.el." map))
          (turn-on-override-mode (intern (format "turn-on-%s" override-mode)))
          (turn-on-override-mode-doc (format "Enable `%s' except in minibuffer"
                                             override-mode))
-         (evil-keys (plist-get args :evil-keys))
+         (evil-keys (or (plist-get args :evil-keys)
+                        bind-map-default-evil-keys))
          (evil-states (or (plist-get args :evil-states)
                           bind-map-default-evil-states))
          (minor-modes (plist-get args :minor-modes))