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

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/denote 7cdb31acee 15/19: Make stylistic tweaks to denot


From: ELPA Syncer
Subject: [elpa] externals/denote 7cdb31acee 15/19: Make stylistic tweaks to denote-fontify-links
Date: Wed, 19 Jun 2024 03:57:55 -0400 (EDT)

branch: externals/denote
commit 7cdb31aceee094c143ff986c75373cdf60fd18f2
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: Protesilaos Stavrou <info@protesilaos.com>

    Make stylistic tweaks to denote-fontify-links
---
 denote.el | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

diff --git a/denote.el b/denote.el
index 73d1df7e81..47bd53176c 100644
--- a/denote.el
+++ b/denote.el
@@ -4240,7 +4240,7 @@ To be assigned to `markdown-follow-link-functions'."
 
 Implementation based on the function `org-activate-links'."
   (catch :exit
-    (when-let (type (denote-filetype-heuristics (buffer-file-name)))
+    (when-let ((type (denote-filetype-heuristics (buffer-file-name))))
       (while (re-search-forward (denote--link-in-context-regexp type) limit t)
         (save-match-data  ; to return the matches to font-lock
           (let* ((start (match-beginning 0))
@@ -4267,10 +4267,8 @@ Implementation based on the function 
`org-activate-links'."
                                               htmlize-link (:uri ,file-link)
                                               font-lock-multiline t))
                      (non-sticky-props
-                      '(rear-nonsticky (mouse-face highlight keymap invisible
-                                                   intangible help-echo
-                                                   htmlize-link)))
-                     (face-property 'file-link)
+                      '(rear-nonsticky (mouse-face highlight keymap invisible 
intangible help-echo htmlize-link)))
+                     (face-property 'link)
                      (hidden (append '(invisible t) properties)))
                 (remove-text-properties start end '(invisible nil))
                 (add-text-properties start visible-start hidden)



reply via email to

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