[elpa] externals/org c02c0d660d 2/2: org-do-emphasis-faces: Remove link folds if any

[ELPA Syncer]

branch: externals/org
commit c02c0d660d210d124cedc5557a0f7b787b9d0695
Author: Ihor Radchenko <yantar92@gmail.com>
Commit: Ihor Radchenko <yantar92@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)