[elpa] externals-release/org 2a85367ea8 2/3: lisp/org.el: Add back "export" blocks to natively fontified blocks

[ELPA Syncer]

branch: externals-release/org
commit 2a85367ea80d8a110f76c42aa6927cf220ab5c33
Author: Benjamin McMillan <mcmillanbb@gmail.com>
Commit: Ihor Radchenko <yantar92@posteo.net>

    lisp/org.el: Add back "export" blocks to natively fontified blocks
    
    * lisp/org.el (org-fontify-meta-lines-and-blocks-1): Add "export" to
    list of block types that are fontified if `org-src-fontify-natively'
    is non-nil.  This brings back the previous undocumented behaviour.
    
    Link: https://list.orgmode.org/87h6aejf17.fsf@localhost/
    TINYCHANGE
---
 lisp/org.el | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/lisp/org.el b/lisp/org.el
index 5bee96fb0b..60c95a6ffb 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -5489,14 +5489,14 @@ by a #."
            (org-remove-flyspell-overlays-in nl-before-endline end-of-endline)
             (cond
             ((and org-src-fontify-natively
-                   ;; Technically, according to
+                   ;; Technically, according to the
                    ;; `org-src-fontify-natively' docstring, we should
                    ;; only fontify src blocks.  However, it is common
-                   ;; to use undocumented fontification of example
-                   ;; blocks with undocumented language specifier.
-                   ;; Keep this undocumented feature for user
-                   ;; convenience.
-                   (member block-type '("src" "example")))
+                   ;; to use undocumented fontification of export and
+                   ;; example blocks. (The latter which do not support a
+                   ;; language specifier.) Keep this undocumented feature
+                   ;; for user convenience.
+                   (member block-type '("src" "export" "example")))
              (save-match-data
                 (org-src-font-lock-fontify-block (or lang "") block-start 
block-end))
              (add-text-properties bol-after-beginline block-end '(src-block 
t)))