branch: externals/denote
commit aab124232cb330c2764c0d02eac95dd9ca8b1f1d
Author: Protesilaos Stavrou <[email protected]>
Commit: Protesilaos Stavrou <[email protected]>
Fix a case in denote-get-identifier-at-point where there are many faces
---
denote.el | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/denote.el b/denote.el
index 51212e442f..bacbbb5d38 100644
--- a/denote.el
+++ b/denote.el
@@ -4221,7 +4221,9 @@ Implementation based on the function
`org-activate-links'."
(defun denote-get-identifier-at-point (&optional point)
"Return the Denote identifier at point or optional POINT."
(when-let ((position (or point (point)))
- (_ (eq (get-text-property position 'face) 'denote-faces-link)))
+ (face-at-point (get-text-property position 'face))
+ (_ (or (eq face-at-point 'denote-faces-link)
+ (member 'denote-faces-link face-at-point))))
(or (get-text-property position 'denote-link-id)
(let ((property (get-text-property position 'help-echo)))
(string-match denote-id-regexp property)
