From 1acce3b5c7fdf0b2a7301db25dfc2a616df36744 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Harald=20J=C3=B6rg?= Date: Thu, 15 Jun 2023 17:08:07 +0200 Subject: [PATCH] ; cperl-mode.el: Fix font-lock after yanking into POD When extending the region to fontify for jit-lock-mode, make sure we start fontifying at the beginning of a POD section (Bug#64056). --- lisp/progmodes/cperl-mode.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el index ed021a7ebc9..6548ba3bd36 100644 --- a/lisp/progmodes/cperl-mode.el +++ b/lisp/progmodes/cperl-mode.el @@ -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))) -- 2.39.2