[elpa] externals/leaf 17d00e7 21/29: use string-match-p instead of string-suffix-p

[Stefan Monnier]

branch: externals/leaf
commit 17d00e7c64fe54f75aa262f23c4bac6b0b11d05e
Author: conao3 <conao3@gmail.com>
Commit: conao3 <conao3@gmail.com>

    use string-match-p instead of string-suffix-p
---
 leaf.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/leaf.el b/leaf.el
index 72bd4f4..1cbf3fb 100644
--- a/leaf.el
+++ b/leaf.el
@@ -581,7 +581,7 @@ see `alist-get'."
 (defun leaf-mode-sym (sym)
   "Return mode like symbol from SYM."
   (let ((sym-str (symbol-name sym)))
-    (intern (concat sym-str (unless (string-suffix-p "-mode" sym-str) 
"-mode")))))
+    (intern (concat sym-str (unless (string-match-p "-mode$" sym-str) 
"-mode")))))
 
 (defun leaf-error (message &rest args)
   "Raise error with type leaf.  MESSAGE and ARGS is same form as `lwarn'."