Re: [O] Links in #+caption: lines

[Rasmus]

Hi,

address@hidden (Thomas S. Dye) writes:

>> In the patch I guess this is the passage you disagree with:
>>
>> +          ((equal dc1 "+caption:")
>> +           (org-remove-flyspell-overlays-in (match-end 2) (match-end 0))
>> +           (remove-text-properties (match-beginning 0) (match-end 0)
>> +                                   '(display t invisible t intangible t))
>> +           (add-text-properties (match-beginning 1) (match-end 3)
>> +                                '(font-lock-fontified t face org-meta-line))
>> +           (add-text-properties (match-beginning 6) (+ (match-end 6) 1)
>> +                                '(font-lock-fontified t face org-block)))
>>
>> Perhaps it is possible to let normal fontification rule in region six
>> above?
>
> How would I change this so descriptive links are shown in #+caption:
> lines?

Try the attached patch.

I have done 20 second of testing (I'm traveling) so there may be adverse
effects.  But it looked OK.

Have a nice weekend.

—Rasmus

-- 
With monopolies the cake is a lie!

>From bdfbda33ee01200f52393884c51e8fc865f8ec0c Mon Sep 17 00:00:00 2001
From: Rasmus <address@hidden>
Date: Fri, 5 Jun 2015 07:38:13 +0200
Subject: [PATCH] org.el: Alter caption label formatting

* org.el (org-fontify-meta-lines-and-blocks-1): Caption labels
  retain normally formatted.
---
 lisp/org.el | 4 ----
 1 file changed, 4 deletions(-)

diff --git a/lisp/org.el b/lisp/org.el
index 62684e9..81d1022 100755
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -5951,12 +5951,8 @@ by a #."
               '(font-lock-fontified t face org-document-info))))
           ((equal dc1 "+caption:")
            (org-remove-flyspell-overlays-in (match-end 2) (match-end 0))
-           (remove-text-properties (match-beginning 0) (match-end 0)
-                                   '(display t invisible t intangible t))
            (add-text-properties (match-beginning 1) (match-end 3)
                                 '(font-lock-fontified t face org-meta-line))
-           (add-text-properties (match-beginning 6) (+ (match-end 6) 1)
-                                '(font-lock-fontified t face org-block))
            t)
           ((member dc3 '(" " ""))
            (org-remove-flyspell-overlays-in beg (match-end 0))
-- 
2.4.2