From 2a85367ea80d8a110f76c42aa6927cf220ab5c33 Mon Sep 17 00:00:00 2001 From: Benjamin McMillan Date: Fri, 20 Sep 2024 23:43:55 +0900 Subject: 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 5bee96fb0..60c95a6ff 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))) -- cgit v1.2.3-70-g09d2