mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-11-21 06:55:35 +00:00
Code

Merge branch 'bugfix'

Browse Source
This commit is contained in:
Ihor Radchenko 2024-09-22 11:47:53 +02:00
commit 0b1a4bfc48
No known key found for this signature in database
GPG Key ID: 6470762A7DA11D8B
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lisp/org.el
View File

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