emacs-elpa-diffs
[Top][All Lists]
Advanced

[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)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]