From cdfb34ece036655f9527d748af9623675bba12d1 Mon Sep 17 00:00:00 2001
From: Kyle Meyer <kyle@kyleam.com>
Date: Wed, 13 Jan 2021 01:00:43 -0500
Subject: Prefer string-suffix-p to string-match-p

---
 lisp/km-magit.el | 2 +-
 lisp/km-org.el   | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

(limited to 'lisp')

diff --git a/lisp/km-magit.el b/lisp/km-magit.el
index ced8bed..de39bc9 100644
--- a/lisp/km-magit.el
+++ b/lisp/km-magit.el
@@ -897,7 +897,7 @@ appending [M/N] to each entry."
     (apply #'magit-run-git "format-patch"
            upstream (concat "--base=" upstream) args)
     (let* ((patches (or (seq-filter
-                         (lambda (f) (string-match-p "\\.patch\\'" f))
+                         (lambda (f) (string-suffix-p ".patch" f))
                          (magit-untracked-files))
                         (error "There should be patches")))
            (cover (seq-find
diff --git a/lisp/km-org.el b/lisp/km-org.el
index ce4cac1..22055a5 100644
--- a/lisp/km-org.el
+++ b/lisp/km-org.el
@@ -585,7 +585,7 @@ to be easily overriden.")
 ;;;###autoload
 (defun km/org-open-last-pdf ()
   (interactive)
-  (let ((file (cl-find-if (lambda (x) (string-match-p "\\.pdf\\'" x))
+  (let ((file (cl-find-if (lambda (x) (string-suffix-p ".pdf" x))
                           recentf-list)))
     (when file
       (org-open-file file))))
-- 
cgit v1.2.3