diff options
| author | Stefan Kangas <stefankangas@gmail.com> | 2023-12-10 13:22:04 +0100 |
|---|---|---|
| committer | Stefan Kangas <stefankangas@gmail.com> | 2023-12-10 13:22:04 +0100 |
| commit | 06a12b0cccbda419752f3388346be7d302ebcbeb (patch) | |
| tree | 69c3a4c23638553993a7580cae4a4d597fd8e258 /lisp/progmodes/cperl-mode.el | |
| parent | 1d5028ad0414cad458aac1102d3612e4956068c5 (diff) | |
; Fix typos
Diffstat (limited to 'lisp/progmodes/cperl-mode.el')
| -rw-r--r-- | lisp/progmodes/cperl-mode.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el index 02185972bfe..58cf2728f61 100644 --- a/lisp/progmodes/cperl-mode.el +++ b/lisp/progmodes/cperl-mode.el @@ -4206,7 +4206,7 @@ recursive calls in starting lines of here-documents." (setq tmpend tb)) (put-text-property b (point) 'syntax-type 'format)) ;; quotelike operator or regexp: capture groups 10 or 11 - ;; matches some false postives, to be eliminated here + ;; matches some false positives, to be eliminated here ((or (match-beginning 10) (match-beginning 11)) (setq b1 (if (match-beginning 10) 10 11) argument (buffer-substring @@ -5877,7 +5877,7 @@ functions (which they are not). Inherits from `default'.") (eval cperl--ws*-rx)) ;; ... or the start of a "sloppy" signature (sequence (eval cperl--sloppy-signature-rx) - ;; arbtrarily continue "a few lines" + ;; arbitrarily continue "a few lines" (repeat 0 200 (not (in "{")))) ;; make sure we have a reasonably ;; short match for an incomplete sub |