branch: externals/denote
commit f3b2f78dd05d89c921453e6b157a5b07620309a5
Author: Protesilaos Stavrou <i...@protesilaos.com>
Commit: Protesilaos Stavrou <i...@protesilaos.com>
Tweak how we deal with thing-at-point-provider-alist in
denote-fontify-links-mode
---
denote.el | 15 +++++++--------
1 file changed, 7 insertions(+), 8 deletions(-)
diff --git a/denote.el b/denote.el
index 47bd53176c..5b556cbd50 100644
--- a/denote.el
+++ b/denote.el
@@ -4298,15 +4298,14 @@ To be used as a `thing-at' provider."
(if denote-fontify-links-mode
(progn
(font-lock-add-keywords nil '(denote-fontify-links))
- (make-local-variable 'thing-at-point-provider-alist)
- (add-to-list 'thing-at-point-provider-alist
- '(url . denote--get-link-file-path-at-point)))
+ (setq-local thing-at-point-provider-alist
+ (append thing-at-point-provider-alist
+ '((url . denote--get-link-file-path-at-point)))))
(font-lock-remove-keywords nil '(denote-fontify-links))
- (set 'thing-at-point-provider-alist
- (cl-remove
- '(url . denote--get-link-file-path-at-point)
- (symbol-value 'thing-at-point-provider-alist)
- :test 'equal)))
+ (setq-local thing-at-point-provider-alist
+ (delete
+ '((url . denote--get-link-file-path-at-point))
+ thing-at-point-provider-alist)))
(font-lock-update)))
;;;;; Backlinks' buffer
