diff options
| author | Harald Jörg | 2021-11-03 15:04:10 +0100 |
|---|---|---|
| committer | Harald Jörg | 2021-11-03 15:12:39 +0100 |
| commit | a25e91593d48a541b5940a2ed707ddfaef5c953f (patch) | |
| tree | 2d511c4e786138914cc8416f0ae8915602fce924 | |
| parent | 0091398af93f0864fcdbd2b5a93aa470450f7612 (diff) | |
| download | emacs-a25e91593d48a541b5940a2ed707ddfaef5c953f.tar.gz emacs-a25e91593d48a541b5940a2ed707ddfaef5c953f.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
| -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 1afeb60ac5f..a23505a9d3b 100644 --- a/lisp/progmodes/cperl-mode.el +++ b/lisp/progmodes/cperl-mode.el | |||
| @@ -5951,7 +5951,7 @@ default function." | |||
| 5951 | (eval cperl--basic-identifier-rx))) | 5951 | (eval cperl--basic-identifier-rx))) |
| 5952 | (0+ blank) "(") | 5952 | (0+ blank) "(") |
| 5953 | ;; '("\\<for\\(each\\)?\\([ \t]+\\(state\\|my\\|local\\|our\\)\\)?[ \t]*\\(\\$[a-zA-Z_][a-zA-Z_0-9]*\\)[ \t]*(" | 5953 | ;; '("\\<for\\(each\\)?\\([ \t]+\\(state\\|my\\|local\\|our\\)\\)?[ \t]*\\(\\$[a-zA-Z_][a-zA-Z_0-9]*\\)[ \t]*(" |
| 5954 | 4 font-lock-variable-name-face) | 5954 | 1 font-lock-variable-name-face) |
| 5955 | ;; Avoid $!, and s!!, qq!! etc. when not fontifying syntactically | 5955 | ;; Avoid $!, and s!!, qq!! etc. when not fontifying syntactically |
| 5956 | '("\\(?:^\\|[^smywqrx$]\\)\\(!\\)" 1 font-lock-negation-char-face) | 5956 | '("\\(?:^\\|[^smywqrx$]\\)\\(!\\)" 1 font-lock-negation-char-face) |
| 5957 | '("\\[\\(\\^\\)" 1 font-lock-negation-char-face prepend))) | 5957 | '("\\[\\(\\^\\)" 1 font-lock-negation-char-face prepend))) |