diff options
| -rw-r--r-- | evil-common.el | 6 | ||||
| -rw-r--r-- | evil-core.el | 8 |
2 files changed, 7 insertions, 7 deletions
diff --git a/evil-common.el b/evil-common.el index f0fe68a..d320fd0 100644 --- a/evil-common.el +++ b/evil-common.el @@ -488,13 +488,13 @@ If any character set is complemented, the result is also complemented." (let ((bracket "") (complement "") (hyphen "") result) (save-match-data (dolist (set sets) - (when (string-match "^\\^" set) + (when (string-match-p "^\\^" set) (setq set (substring set 1) complement "^")) - (when (string-match "^]" set) + (when (string-match-p "^]" set) (setq set (substring set 1) bracket "]")) - (when (string-match "^-" set) + (when (string-match-p "^-" set) (setq set (substring set 1) hyphen "-")) (setq result (concat result set))) diff --git a/evil-core.el b/evil-core.el index eb23eed..d88a102 100644 --- a/evil-core.el +++ b/evil-core.el @@ -898,14 +898,14 @@ does not already exist." (defun evil-auxiliary-keymap-p (map) "Whether MAP is an auxiliary keymap." (and (keymapp map) - (string-match "Auxiliary keymap" - (or (keymap-prompt map) "")) t)) + (string-match-p "Auxiliary keymap" + (or (keymap-prompt map) "")) t)) (defun evil-minor-mode-keymap-p (map) "Whether MAP is a minor-mode keymap." (and (keymapp map) - (string-match "Minor-mode keymap" - (or (keymap-prompt map) "")) t)) + (string-match-p "Minor-mode keymap" + (or (keymap-prompt map) "")) t)) (defun evil-intercept-keymap-p (map &optional state) "Whether MAP is an intercept keymap for STATE. |