diff options
author | Benjamin McMillan <mcmillanbb@gmail.com> | 2024-09-20 23:43:55 +0900 |
---|---|---|
committer | Ihor Radchenko <yantar92@posteo.net> | 2024-09-22 11:43:55 +0200 |
commit | 2a85367ea80d8a110f76c42aa6927cf220ab5c33 (patch) | |
tree | f442eee4c57788ee223e71dc2e75746f71f9a6de | |
parent | c766ea34ecfbab8658ef599e99772df9a3a1aa4f (diff) |
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
-rw-r--r-- | lisp/org.el | 12 |
1 files 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))) |