[nongnu] elpa/bind-map e3fa3cc383 26/97: Fix compiler warning

[ELPA Syncer]

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

    Fix compiler warning
    
    It didn't like using major-mode as an argument
---
 bind-map.el | 28 ++++++++++++++--------------
 1 file changed, 14 insertions(+), 14 deletions(-)

diff --git a/bind-map.el b/bind-map.el
index bcf39158fe..9be3ed5ff6 100644
--- a/bind-map.el
+++ b/bind-map.el
@@ -181,45 +181,45 @@ Declare a prefix command for MAP named COMMAND-NAME."
 (put 'bind-map 'lisp-indent-function 'defun)
 
 ;;;###autoload
-(defmacro bind-map-for-major-mode (major-mode &rest args)
+(defmacro bind-map-for-major-mode (major-mode-sym &rest args)
   "Short version of `bind-map' if you want to bind a map for a
-single major mode. MAJOR-MODE is the unquoted symbol representing
-a major mode. This macro makes the call
+single major mode. MAJOR-MODE-SYM is the unquoted symbol
+representing a major mode. This macro makes the call
 
-\(bind-map MAJOR-MODE-bm-map
-  :major-modes \(MAJOR-MODE\)
+\(bind-map MAJOR-MODE-SYM-bm-map
+  :major-modes \(MAJOR-MODE-SYM\)
   ARGS\)
 
 where ARGS should include :keys or :evil-keys. The name of the
 generated keymap is returned, which is always the name of the
 major mode with -bm-map appended."
-  (let ((map-name (intern (concat (symbol-name major-mode)
+  (let ((map-name (intern (concat (symbol-name major-mode-sym)
                                   bind-map-default-map-suffix))))
     `(progn
        (bind-map ,map-name
-         :major-modes (,major-mode)
+         :major-modes (,major-mode-sym)
          ,@args)
        ',map-name)))
 (put 'bind-map-for-major-mode 'lisp-indent-function 'defun)
 
 ;;;###autoload
-(defmacro bind-map-for-minor-mode (minor-mode &rest args)
+(defmacro bind-map-for-minor-mode (minor-mode-sym &rest args)
   "Short version of `bind-map' if you want to bind a map for a
-single minor mode. MINOR-MODE is the unquoted symbol representing
-a minor mode. This macro makes the call
+single minor mode. MINOR-MODE-SYM is the unquoted symbol
+representing a minor mode. This macro makes the call
 
-\(bind-map MINOR-MODE-bm-map
-  :minor-modes \(MINOR-MODE\)
+\(bind-map MINOR-MODE-SYM-bm-map
+  :minor-modes \(MINOR-MODE-SYM\)
   ARGS\)
 
 where ARGS should include :keys or :evil-keys. The name of the
 generated keymap is returned, which is always the name of the
 minor mode with -bm-map appended."
-  (let ((map-name (intern (concat (symbol-name minor-mode)
+  (let ((map-name (intern (concat (symbol-name minor-mode-sym)
                                   bind-map-default-map-suffix))))
     `(progn
        (bind-map ,map-name
-         :minor-modes (,minor-mode)
+         :minor-modes (,minor-mode-sym)
          ,@args)
        ',map-name)))
 (put 'bind-map-for-minor-mode 'lisp-indent-function 'defun)