diff options
| author | Hans Bolinder <[email protected]> | 2013-02-15 12:49:37 +0100 |
|---|---|---|
| committer | Hans Bolinder <[email protected]> | 2013-02-15 12:49:37 +0100 |
| commit | 0d77170a3f0e537d103d83f28ae09977d6e95fb8 (patch) | |
| tree | 0380f6ae63b5f059498b69b4b85398ba0438c14e /lib/stdlib/src/erl_lint.erl | |
| parent | 739b5db228de76dd42ab7f29983724cceafed9c2 (diff) | |
| parent | 07c086c1b9ea74996f20339d42ca91c3411966f5 (diff) | |
| download | otp-0d77170a3f0e537d103d83f28ae09977d6e95fb8.tar.gz otp-0d77170a3f0e537d103d83f28ae09977d6e95fb8.tar.bz2 otp-0d77170a3f0e537d103d83f28ae09977d6e95fb8.zip | |
Merge branch 'hb/stdlib/new_l_modifier/otp-10755'
* hb/stdlib/new_l_modifier/otp-10755:
[stdlib] Add new SDTLIB application variable 'shell_strings'
[stdlib] Add control sequence modifier 'l'
Diffstat (limited to 'lib/stdlib/src/erl_lint.erl')
| -rw-r--r-- | lib/stdlib/src/erl_lint.erl | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/lib/stdlib/src/erl_lint.erl b/lib/stdlib/src/erl_lint.erl index 12505b33d1..68a8534f15 100644 --- a/lib/stdlib/src/erl_lint.erl +++ b/lib/stdlib/src/erl_lint.erl @@ -3483,6 +3483,12 @@ extract_sequence(4, [$t, $P | Fmt], Need) -> extract_sequence(5, [$P|Fmt], Need); extract_sequence(4, [$t, C | _Fmt], _Need) -> {error,"invalid control ~t" ++ [C]}; +extract_sequence(4, [$l, $p | Fmt], Need) -> + extract_sequence(5, [$p|Fmt], Need); +extract_sequence(4, [$l, $P | Fmt], Need) -> + extract_sequence(5, [$P|Fmt], Need); +extract_sequence(4, [$l, C | _Fmt], _Need) -> + {error,"invalid control ~l" ++ [C]}; extract_sequence(4, Fmt, Need) -> extract_sequence(5, Fmt, Need); extract_sequence(5, [C|Fmt], Need0) -> |