From cdfb34ece036655f9527d748af9623675bba12d1 Mon Sep 17 00:00:00 2001 From: Kyle Meyer 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