branch: externals/org
commit c02c0d660d210d124cedc5557a0f7b787b9d0695
Author: Ihor Radchenko <yanta...@gmail.com>
Commit: Ihor Radchenko <yanta...@gmail.com>
org-do-emphasis-faces: Remove link folds if any
* lisp/org.el (org-do-emphasis-faces): Reveal hidden parts of links
fontified by `org-activate-link', if any.
Partially fixes
https://list.orgmode.org/t7np1d$vu8$1...@ciao.gmane.io/T/#u
The proper fix should also involve `org-activate-link' not hitting
false-positives inside verbatim.
---
lisp/org.el | 4 ++++
1 file changed, 4 insertions(+)
diff --git a/lisp/org.el b/lisp/org.el
index 95dff27ad7..12629bb137 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -4894,6 +4894,10 @@ stacked delimiters is N. Escaping delimiters is not
possible."
(when verbatim?
(org-remove-flyspell-overlays-in
(match-beginning 0) (match-end 0))
+ (when (and (org-fold-core-folding-spec-p 'org-link)
+ (org-fold-core-folding-spec-p
'org-link-description))
+ (org-fold-region (match-beginning 0) (match-end 0) nil
'org-link)
+ (org-fold-region (match-beginning 0) (match-end 0) nil
'org-link-description))
(remove-text-properties (match-beginning 2) (match-end 2)
'(display t invisible t intangible t)))
(add-text-properties (match-beginning 2) (match-end 2)
