[nongnu] elpa/bind-map 8e3df1f4cf 36/97: Use add-to-list for mm list and defvar prefix

[ELPA Syncer]

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

    Use add-to-list for mm list and defvar prefix
---
 bind-map.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/bind-map.el b/bind-map.el
index 32aa2a27d9..3796a605a8 100644
--- a/bind-map.el
+++ b/bind-map.el
@@ -148,6 +148,7 @@ Declare a prefix command for MAP named COMMAND-NAME."
        (defvar ,map (make-sparse-keymap))
        (unless (keymapp ,map)
          (error "bind-map: %s is not a keymap" ',map))
+       (defvar ,prefix-cmd nil)
        (setq ,prefix-cmd ,map)
        (setf (symbol-function ',prefix-cmd) ,map)
 
@@ -163,7 +164,8 @@ Declare a prefix command for MAP named COMMAND-NAME."
          (with-no-warnings
            (defvar-local ,activate nil))
          (push (cons ',activate ,root-map) minor-mode-map-alist)
-         (setq ,major-mode-list (append ,major-mode-list ',major-modes))
+         (dolist (mode ',major-modes)
+           (add-to-list ',major-mode-list mode))
          (defun ,activate-func ()
            (setq ,activate (not (null (member major-mode ,major-mode-list)))))
          (add-hook 'change-major-mode-after-body-hook ',activate-func))