diff options
| author | Kyle Meyer <kyle@kyleam.com> | 2021-01-13 01:00:43 -0500 |
|---|---|---|
| committer | Kyle Meyer <kyle@kyleam.com> | 2021-01-29 22:35:25 -0500 |
| commit | cdfb34ece036655f9527d748af9623675bba12d1 (patch) | |
| tree | 1be205d64818c93738b3136f0ee8509679b6dbf7 | |
| parent | 129e8b76165d3e6f58a7d04317a4bf63d8a6413d (diff) | |
| download | emacs.d-cdfb34ece036655f9527d748af9623675bba12d1.tar.gz | |
Prefer string-suffix-p to string-match-p
| -rw-r--r-- | lisp/km-magit.el | 2 | ||||
| -rw-r--r-- | lisp/km-org.el | 2 |
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)))) |