From 8849c06fe86e4b692479314a6de434e95a8276f5 Mon Sep 17 00:00:00 2001 From: Dabrien 'Dabe' Murphy Date: Fri, 5 Jul 2024 17:54:16 -0400 Subject: [PATCH] cperl-mode: Don't Apply 'font-lock-warning-face to "\h" and "\v", etc. From: https://www.regular-expressions.info/shorthand.html#more ``` Perl 5.10 introduced \h and \v. \h matches horizontal whitespace, which includes the tab and all characters in the "space separator" Unicode category. It is the same as [\t\p{Zs}]. \v matches "vertical whitespace", which includes all characters treated as line breaks in the Unicode standard. ``` See also: - https://perldoc.perl.org/perl5100delta#Vertical-and-horizontal-whitespace,-and-linebreak ``` Regular expressions now recognize the \v and \h escapes that match vertical and horizontal whitespace, respectively. \V and \H logically match their complements. \R matches a generic linebreak, that is, vertical whitespace, plus the multi-character sequence "\x0D\x0A". ``` --- lisp/progmodes/cperl-mode.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el index 68ad7eda9a73..e3ca1306b79a 100644 --- a/lisp/progmodes/cperl-mode.el +++ b/lisp/progmodes/cperl-mode.el @@ -5013,7 +5013,7 @@ recursive calls in starting lines of here-documents." (cperl-postpone-fontification (- (point) 2) (- (point) 1) 'face (if (memq qtag - (append "ghijkmoqvFHIJKMORTVY" nil)) + (append "gijkmoqFIJKMOTY" nil)) font-lock-warning-face my-cperl-REx-0length-face)) (if (and (eq (char-after b) qtag)