branch: externals/denote
commit 32847629184e35632a5c30577e00e247bbdb5608
Author: Jean-Philippe Gagné Guay <jeanphilippe...@gmail.com>
Commit: Jean-Philippe Gagné Guay <jeanphilippe...@gmail.com>

    Simplify denote--directory-files-matching-regexp
---
 denote.el | 15 ++++++---------
 1 file changed, 6 insertions(+), 9 deletions(-)

diff --git a/denote.el b/denote.el
index f467211b78..8e3def84a4 100644
--- a/denote.el
+++ b/denote.el
@@ -454,15 +454,12 @@ names that are relative to the variable 
`denote-directory'."
 
 (defun denote--directory-files-matching-regexp (regexp)
   "Return list of files matching REGEXP."
-  (delq
-   nil
-   (mapcar
-    (lambda (f)
-      (when (and (denote--only-note-p f)
-                 (string-match-p regexp f)
-                 (not (string= (file-name-nondirectory (buffer-file-name)) f)))
-        f))
-    (denote--directory-files))))
+  (seq-filter
+   (lambda (f)
+     (and (denote--only-note-p f)
+          (string-match-p regexp f)
+          (not (string= (file-name-nondirectory (buffer-file-name)) f))))
+   (denote--directory-files)))
 
 ;;;; Keywords
 

Reply via email to