From: Stefan Kangas Date: Fri, 12 Feb 2021 17:38:58 +0000 (+0100) Subject: ; Fix recent regexp-opt conversion in cperl-mode X-Git-Tag: emacs-28.0.90~3788 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=733dfe244b44de957b0d91b7726f3e053be7000a;p=emacs.git ; Fix recent regexp-opt conversion in cperl-mode * lisp/progmodes/cperl-mode.el (cperl-init-faces): Add missing identifiers found by static analysis of recent change. Thanks to Mattias Engdegård . --- 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"))