[Orgmode] Re: [BABEL] Two minor issues

[Dan Davison]

Sébastien Vauban <address@hidden>
writes:

> Hi Dan,
>
> (resending this, as it seems to never have reached the ML)

Could you tell me what I should do with the random characters in the
addresses that appear in your emails? I've deleted the addresses and
just sending to address@hidden, is that OK?

> Dan Davison wrote:
>> Sébastien Vauban writes:
>>> Dan Davison wrote:

<...>

> Honestly, the way I update that code has been mainly done by sequences of
> trials and errors. The above code is, for me, still quite complex to
> understand with vars such as beg, beg1, end, end1 for which I hadn't
> completely understood the meaning.

This seems to work -- could you try it out?

--8<---------------cut here---------------start------------->8---
diff --git a/lisp/org.el b/lisp/org.el
index e2de48e..0b082da 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -5102,9 +5102,6 @@ will be prompted for."
              (add-text-properties
               beg end
               '(font-lock-fontified t font-lock-multiline t))
-             (add-text-properties beg beg1 '(face org-meta-line))
-             (add-text-properties end1 (+ end 1) '(face org-meta-line))
-                                       ; for end_src
              (cond
               ((and lang org-src-fontify-natively)
                (org-src-font-lock-fontify-block lang block-start block-end))
@@ -5117,6 +5114,8 @@ will be prompted for."
                (add-text-properties beg1 end1 '(face org-quote)))
               ((string= block-type "verse")
                (add-text-properties beg1 end1 '(face org-verse))))
+             (add-text-properties beg beg1 '(face org-meta-line))
+             (add-text-properties (1+ end) (1+ end1) '(face org-meta-line))
              t))
           ((member dc1 '("title:" "author:" "email:" "date:"))
            (add-text-properties
--8<---------------cut here---------------end--------------->8---


Dan


> Otherwise, I would even have proposed a
> renaming of some of them. But, I think that whatever we do, such a code will
> stay complex to understand and change.
>
> Find here a picture of what we see (since my patch) without native
> fontification.
>
>     http://www.mygooglest.com/sva/No-Native-Fontification.png
>
> Also, a picture with the "new" setting of native fontification.
>
>     http://www.mygooglest.com/sva/Native-Fontification-Minibug.png
>
> Hope this helps. If you need help, I'm willing to take a look back a it (still
> trying and testing the effect of changes), but it won't be before a couple of
> days.
>
> Best regards,
>   Seb