[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/denote aab124232c 2/4: Fix a case in denote-get-identif
From: |
ELPA Syncer |
Subject: |
[elpa] externals/denote aab124232c 2/4: Fix a case in denote-get-identifier-at-point where there are many faces |
Date: |
Wed, 31 Jul 2024 12:57:58 -0400 (EDT) |
branch: externals/denote
commit aab124232cb330c2764c0d02eac95dd9ca8b1f1d
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: Protesilaos Stavrou <info@protesilaos.com>
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)