Re: Links in #+caption: lines

[Rasmus <rasmus@gmx.us>]

[-- Attachment #1: Type: text/plain, Size: 1082 bytes --]

Hi,

tsd@tsdye.com (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!

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: 0001-org.el-Alter-caption-label-formatting.patch --]
[-- Type: text/x-diff, Size: 1085 bytes --]

From bdfbda33ee01200f52393884c51e8fc865f8ec0c Mon Sep 17 00:00:00 2001
From: Rasmus <rasmus@gmx.us>
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