[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/denote c9fa42074d 1/2: Fix denote-link-add-links and -a
From: |
ELPA Syncer |
Subject: |
[elpa] externals/denote c9fa42074d 1/2: Fix denote-link-add-links and -add-missing-links |
Date: |
Wed, 9 Nov 2022 11:57:51 -0500 (EST) |
branch: externals/denote
commit c9fa42074d1bb9c99b13ba7236d5364558b41c12
Author: Elias Storms <elias.storms@gmail.com>
Commit: Protesilaos Stavrou <info@protesilaos.com>
Fix denote-link-add-links and -add-missing-links
Both -add-links functions also include the note from which they are
called. This is fixed when assoc-delete-all is replaced with a simple
delete.
---
denote.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/denote.el b/denote.el
index 40c76b0571..3721df9f51 100644
--- a/denote.el
+++ b/denote.el
@@ -2928,7 +2928,7 @@ inserts links with just the identifier."
current-prefix-arg))
(let* ((current-file (buffer-file-name))
(file-type (denote-filetype-heuristics current-file)))
- (if-let ((files (assoc-delete-all
+ (if-let ((files (delete
current-file
(denote-directory-files-matching-regexp regexp)))
(beg (point)))
@@ -2955,7 +2955,7 @@ inserts links with just the identifier."
(file-type (denote-filetype-heuristics current-file))
(current-id (denote--link-in-context-regexp file-type))
(linked-files (denote-link--expand-identifiers current-id)))
- (if-let* ((found-files (assoc-delete-all
+ (if-let* ((found-files (delete
current-file
(denote-directory-files-matching-regexp regexp)))
(final-files (seq-difference found-files linked-files))