[elpa] externals/denote a5d9d919db 2/2: Merge pull request #260 from vedang/fix-missing-links-edge-case

[ELPA Syncer]

branch: externals/denote
commit a5d9d919db6d334bd35a8907c7d5b6d121a3d26c
Merge: f3daeb2eda 55dcf234bd
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: GitHub <noreply@github.com>

    Merge pull request #260 from vedang/fix-missing-links-edge-case
    
    Fix edge-cases when inserting missing links via org-dblock
---
 denote-org-extras.el | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/denote-org-extras.el b/denote-org-extras.el
index f1d2e35884..70f6f6b34b 100644
--- a/denote-org-extras.el
+++ b/denote-org-extras.el
@@ -232,11 +232,12 @@ Also see `denote-org-extras-dblock--files-missing-only'."
   "Return list of missing links to all notes matching REGEXP.
 Missing links are those for which REGEXP does not have a match in
 the current buffer."
-  (if-let ((found-files (denote-directory-files regexp :omit-current))
-           (linked-files (denote-link--expand-identifiers 
denote-org-link-in-context-regexp))
-           (final-files (seq-difference found-files linked-files)))
-      final-files
-    (message "All links matching `%s' are present" regexp)))
+  (let ((found-files (denote-directory-files regexp :omit-current))
+        (linked-files (denote-link--expand-identifiers 
denote-org-link-in-context-regexp)))
+    (if-let ((final-files (seq-difference found-files linked-files)))
+        final-files
+      (message "All links matching `%s' are present" regexp)
+      '())))
 
 (defun denote-org-extras-dblock--files-missing-only (files-matching-regexp 
&optional sort-by-component reverse)
   "Return list of missing links to FILES-MATCHING-REGEXP.