[elpa] externals/denote e1c45e25f4 219/355: Optionally no current in files in dir regexp match

[ELPA Syncer]

branch: externals/denote
commit e1c45e25f445171034ecf6aca6e4d99f8139c2e7
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: Protesilaos Stavrou <info@protesilaos.com>

    Optionally no current in files in dir regexp match
---
 denote.el | 18 +++++++++++-------
 1 file changed, 11 insertions(+), 7 deletions(-)

diff --git a/denote.el b/denote.el
index a4e4ef9fbe..35447baccb 100644
--- a/denote.el
+++ b/denote.el
@@ -291,15 +291,19 @@ names that are relative to the variable 
`denote-directory'."
        (file-directory-p file))
      (directory-files dir absolute directory-files-no-dot-files-regexp t))))
 
-(defun denote--directory-files-matching-regexp (regexp)
-  "Return list of files matching REGEXP."
+(defun denote--directory-files-matching-regexp (regexp &optional 
no-check-current)
+  "Return list of files matching REGEXP.
+With optional NO-CHECK-CURRENT do not test if the current file is
+part of the list."
   (delq
    nil
-   (mapcar (lambda (f)
-             (when (and (string-match-p regexp f)
-                        (not (string= (file-name-nondirectory 
(buffer-file-name)) f)))
-               f))
-           (denote--directory-files))))
+   (mapcar
+    (lambda (f)
+      (when (and (string-match-p regexp f)
+                 (or no-check-current
+                     (not (string= (file-name-nondirectory (buffer-file-name)) 
f))))
+        f))
+    (denote--directory-files))))
 
 (defun denote--keywords-in-files ()
   "Produce list of keywords in `denote--directory-files'."