mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-26 07:33:47 +00:00
Code Issues Releases Activity

* lisp/org/org-src.el (org-src-font-lock-fontify-block): Fix point-min /= 1

Browse Source
This commit is contained in:
Stefan Monnier 2023-12-20 17:50:09 -05:00
parent c9021c62f2
commit 40dafa9af0
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/org/org-src.el
View File

@ -658,7 +658,9 @@ as `org-src-fontify-natively' is non-nil."
(when new-prop
(if (not (eq prop 'invisible))
(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)
;; Special case. `invisible' text property may
;; clash with Org folding. Do not assign
@ -690,7 +692,8 @@ as `org-src-fontify-natively' is non-nil."
(when invisibility-spec
(add-to-invisibility-spec invisibility-spec))
(put-text-property
(+ start (1- pos)) (1- (+ start next))
(+ start (- pos (point-min)))
(+ start (- next (point-min)))
'org-src-invisible new-prop
org-buffer)))))))
(setq pos next)))