branch: elpa/bind-map
commit e3fa3cc383bd7d331caa89bc914a2a296abb98f1
Author: justbur <jus...@burkett.cc>
Commit: justbur <jus...@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)
