summaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
authorKyle Meyer <kyle@kyleam.com>2021-01-13 01:00:43 -0500
committerKyle Meyer <kyle@kyleam.com>2021-01-29 22:35:25 -0500
commitcdfb34ece036655f9527d748af9623675bba12d1 (patch)
tree1be205d64818c93738b3136f0ee8509679b6dbf7 /lisp
parent129e8b76165d3e6f58a7d04317a4bf63d8a6413d (diff)
downloademacs.d-cdfb34ece036655f9527d748af9623675bba12d1.tar.gz
Prefer string-suffix-p to string-match-p
Diffstat (limited to 'lisp')
-rw-r--r--lisp/km-magit.el2
-rw-r--r--lisp/km-org.el2
2 files changed, 2 insertions, 2 deletions
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))))