branch: externals/denote
commit a4d6f321b42450369d6517fb410d13adac5c8abe
Author: Protesilaos Stavrou <i...@protesilaos.com>
Commit: Protesilaos Stavrou <i...@protesilaos.com>
Make denote-link-ol-help-echo more robust
---
denote.el | 8 +++-----
1 file changed, 3 insertions(+), 5 deletions(-)
diff --git a/denote.el b/denote.el
index be4100bf52..5d542f9523 100644
--- a/denote.el
+++ b/denote.el
@@ -6850,11 +6850,9 @@ backend."
(defun denote-link-ol-help-echo (_window _object position)
"Echo the full file path of the identifier at POSITION."
- (when-let* ((htmlize-link (get-text-property position 'htmlize-link))
- (string (plist-get htmlize-link :uri))
- (identifier (replace-regexp-in-string
"denote:\\(.*?\\)\\(#.*\\)?" "\\1" string))
- (path (denote-get-path-by-id identifier)))
- path))
+ (pcase-let* ((data (denote--link-at-point-get-data position))
+ (`(,target . ,_) (car data)))
+ (denote-get-path-by-id target)))
;; The `eval-after-load' part with the quoted lambda is adapted from
;; Elfeed: <https://github.com/skeeto/elfeed/>.
