diff options
| author | Harald Jörg | 2021-11-03 15:04:10 +0100 |
|---|---|---|
| committer | Harald Jörg | 2022-10-20 21:00:34 +0200 |
| commit | ee9a9fbf0fff9031cf8eb544f5670906ef3c7bb2 (patch) | |
| tree | faf149375ff956c42e564847a927771c79794a1b | |
| parent | 626525c29fd687fba238c99863614112e5b32351 (diff) | |
| download | emacs-ee9a9fbf0fff9031cf8eb544f5670906ef3c7bb2.tar.gz emacs-ee9a9fbf0fff9031cf8eb544f5670906ef3c7bb2.zip | |
; cperl-mode.el: Fix one match-count in my commit 2021-09-14
* lisp/progmodes/cperl-mode.el (cperl-init-faces): Matching group needs
to be adjusted according to the regexp change in my previous commit
(cherry picked from commit a25e91593d48a541b5940a2ed707ddfaef5c953f)
| -rw-r--r-- | lisp/progmodes/cperl-mode.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el index eaedf987c5e..7d121cbf946 100644 --- a/lisp/progmodes/cperl-mode.el +++ b/lisp/progmodes/cperl-mode.el | |||
| @@ -5946,7 +5946,7 @@ default function." | |||
| 5946 | (eval cperl--basic-identifier-rx))) | 5946 | (eval cperl--basic-identifier-rx))) |
| 5947 | (0+ blank) "(") | 5947 | (0+ blank) "(") |
| 5948 | ;; '("\\<for\\(each\\)?\\([ \t]+\\(state\\|my\\|local\\|our\\)\\)?[ \t]*\\(\\$[a-zA-Z_][a-zA-Z_0-9]*\\)[ \t]*(" | 5948 | ;; '("\\<for\\(each\\)?\\([ \t]+\\(state\\|my\\|local\\|our\\)\\)?[ \t]*\\(\\$[a-zA-Z_][a-zA-Z_0-9]*\\)[ \t]*(" |
| 5949 | 4 font-lock-variable-name-face) | 5949 | 1 font-lock-variable-name-face) |
| 5950 | ;; Avoid $!, and s!!, qq!! etc. when not fontifying syntactically | 5950 | ;; Avoid $!, and s!!, qq!! etc. when not fontifying syntactically |
| 5951 | '("\\(?:^\\|[^smywqrx$]\\)\\(!\\)" 1 font-lock-negation-char-face) | 5951 | '("\\(?:^\\|[^smywqrx$]\\)\\(!\\)" 1 font-lock-negation-char-face) |
| 5952 | '("\\[\\(\\^\\)" 1 font-lock-negation-char-face prepend))) | 5952 | '("\\[\\(\\^\\)" 1 font-lock-negation-char-face prepend))) |