From df4a48bc4fca4651f35d2f955a9bbc74d4e1883e Mon Sep 17 00:00:00 2001 From: Ihor Radchenko Date: Tue, 19 Mar 2024 22:22:57 +0300 Subject: [PATCH] Fix org-fontify-quote-and-verse-blocks when org-src-fontify-natively is t * lisp/org.el (org-fontify-meta-lines-and-blocks-1): Do not attempt native fontification in quote and verse blocks when `org-src-fontify-natively' is non-nil. Limit native fontification to src and example blocks only. Reported-by: William Denton Link: https://orgmode.org/list/Ml33lIeToTUsXIzeVEIolD5SsK-HJ0yrdPgOMr2N9WrldhU72LtjnGjehgViKAjMOgN5IAwM5Tx5TfCJlRBrTfnGnxqpuhy3-lEbUNycPMY=@williamdenton.org --- lisp/org.el | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/lisp/org.el b/lisp/org.el index fada1fb59..e98c943ec 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -5533,8 +5533,7 @@ by a #." ;; blocks with undocumented language specifier. ;; Keep this undocumented feature for user ;; convenience. - t - ;; (string= block-type "src") + (member block-type ("src" "example")) ) (save-match-data (org-src-font-lock-fontify-block (or lang "") block-start block-end))