emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/denote 3284762918 4/7: Simplify denote--directory-files


From: ELPA Syncer
Subject: [elpa] externals/denote 3284762918 4/7: Simplify denote--directory-files-matching-regexp
Date: Tue, 2 Aug 2022 23:57:30 -0400 (EDT)

branch: externals/denote
commit 32847629184e35632a5c30577e00e247bbdb5608
Author: Jean-Philippe Gagné Guay <jeanphilippe150@gmail.com>
Commit: Jean-Philippe Gagné Guay <jeanphilippe150@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

[Prev in Thread] Current Thread [Next in Thread]