From 733dfe244b44de957b0d91b7726f3e053be7000a Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Fri, 12 Feb 2021 18:38:58 +0100 Subject: [PATCH] ; Fix recent regexp-opt conversion in cperl-mode MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit * lisp/progmodes/cperl-mode.el (cperl-init-faces): Add missing identifiers found by static analysis of recent change. Thanks to Mattias Engdegård . --- lisp/progmodes/cperl-mode.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el index b1a49b25a32..90ccdbf00ad 100644 --- a/lisp/progmodes/cperl-mode.el +++ b/lisp/progmodes/cperl-mode.el @@ -5435,7 +5435,7 @@ indentation and initial hashes. Behaves usually outside of comment." (concat "\\(^\\|[^$@%&\\]\\)\\<\\(" (regexp-opt - '("CORE" "__FILE__" "__LINE__" "__SUB__" + '("CORE" "__FILE__" "__LINE__" "__SUB__" "__PACKAGE__" "abs" "accept" "alarm" "and" "atan2" "bind" "binmode" "bless" "caller" "chdir" "chmod" "chown" "chr" "chroot" "close" @@ -5483,7 +5483,7 @@ indentation and initial hashes. Behaves usually outside of comment." "evalbytes" "exists" "finally" "for" "foreach" "format" "given" "goto" "grep" "if" "keys" "last" "local" "m" "map" "my" "next" "no" "our" "package" "pop" "pos" "print" "printf" "prototype" - "push" "q" "qq" "qw" "qx" "redo" "return" "s" "say" "scalar" + "push" "q" "qq" "qr" "qw" "qx" "redo" "return" "s" "say" "scalar" "shift" "sort" "splice" "split" "state" "study" "sub" "tie" "tied" "tr" "try" "undef" "unless" "unshift" "untie" "until" "use" "when" "while" "y")) -- 2.39.2