procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

; cperl-mode.el: Fix font-lock after yanking into POD

Browse source 
When extending the region to fontify for jit-lock-mode, make
sure we start fontifying at the beginning of a POD section
(Bug#64056).
This commit is contained in:
Harald Jörg 2023-06-15 17:08:07 +02:00
parent ad3ec429a1
commit 1acce3b5c7
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/progmodes/cperl-mode.el
View file

@ -3394,7 +3394,9 @@ position of the end of the unsafe construct."
(goto-char (nth 8 state)) ; beginning of this here-doc
(cperl-backward-to-noncomment ; skip back over more
(point-min)) ; here-documents (if any)
(beginning-of-line)))) ; skip back over here-doc starters
(beginning-of-line)) ; skip back over here-doc starters
((nth 4 state) ; in a comment (or POD)
(goto-char (nth 8 state))))) ; ...so go to its beginning
(while (and pos (progn
(beginning-of-line)
(get-text-property (setq pos (point)) 'syntax-type)))