mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-09-05 01:13:09 +00:00
Backport commit 40dafa9af from Emacs
* lisp/org-src.el (org-src-font-lock-fontify-block): Fix point-min /= 1 40dafa9af0ae3b1826409ebed80cb65f56591ffb Stefan Monnier Wed Dec 20 17:50:09 2023 -0500
This commit is contained in:
parent
1bff87bdb7
commit
68f9abe0cd
|
@ -658,7 +658,9 @@ as `org-src-fontify-natively' is non-nil."
|
||||||
(when new-prop
|
(when new-prop
|
||||||
(if (not (eq prop 'invisible))
|
(if (not (eq prop 'invisible))
|
||||||
(put-text-property
|
(put-text-property
|
||||||
(+ start (1- pos)) (1- (+ start next)) prop new-prop
|
(+ start (- pos (point-min)))
|
||||||
|
(+ start (- next (point-min)))
|
||||||
|
prop new-prop
|
||||||
org-buffer)
|
org-buffer)
|
||||||
;; Special case. `invisible' text property may
|
;; Special case. `invisible' text property may
|
||||||
;; clash with Org folding. Do not assign
|
;; clash with Org folding. Do not assign
|
||||||
|
@ -690,7 +692,8 @@ as `org-src-fontify-natively' is non-nil."
|
||||||
(when invisibility-spec
|
(when invisibility-spec
|
||||||
(add-to-invisibility-spec invisibility-spec))
|
(add-to-invisibility-spec invisibility-spec))
|
||||||
(put-text-property
|
(put-text-property
|
||||||
(+ start (1- pos)) (1- (+ start next))
|
(+ start (- pos (point-min)))
|
||||||
|
(+ start (- next (point-min)))
|
||||||
'org-src-invisible new-prop
|
'org-src-invisible new-prop
|
||||||
org-buffer)))))))
|
org-buffer)))))))
|
||||||
(setq pos next)))
|
(setq pos next)))
|
||||||
|
|
Loading…
Reference in a new issue