Hi,
t...@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!
>From bdfbda33ee01200f52393884c51e8fc865f8ec0c Mon Sep 17 00:00:00 2001
From: Rasmus <ras...@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
