diff options
| author | Stefan Monnier | 2017-07-24 18:10:02 -0400 |
|---|---|---|
| committer | Stefan Monnier | 2017-07-24 18:10:02 -0400 |
| commit | 3d847fa9fd68592c50ea5e18c86b9f3eb5030654 (patch) | |
| tree | 1f7f061eccffd3cf04c862b62c4d3e2cdb921ea2 /test | |
| parent | 69fb12a66b3d6b9bfb55d8bcd58bec2a8e7ca55b (diff) | |
| download | emacs-3d847fa9fd68592c50ea5e18c86b9f3eb5030654.tar.gz emacs-3d847fa9fd68592c50ea5e18c86b9f3eb5030654.zip | |
* lisp/progmodes/perl-mode.el: Add support for indented here docs
* lisp/progmodes/perl-mode.el (perl-syntax-propertize-function):
Recognize the new <<~ syntax for indented here docs.
(perl-syntax-propertize-special-constructs): Adjust search of the
end of here docs accordingly.
* test/manual/indent/perl.perl: Add test for indented here docs.
Diffstat (limited to 'test')
| -rwxr-xr-x | test/manual/indent/perl.perl | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/test/manual/indent/perl.perl b/test/manual/indent/perl.perl index f86a09b2733..06f32e7f090 100755 --- a/test/manual/indent/perl.perl +++ b/test/manual/indent/perl.perl | |||
| @@ -53,6 +53,14 @@ EOF1 | |||
| 53 | bar | 53 | bar |
| 54 | EOF2 | 54 | EOF2 |
| 55 | 55 | ||
| 56 | print <<~"EOF1" . <<\EOF2 . s/he"llo/th'ere/; | ||
| 57 | foo | ||
| 58 | EOF2 | ||
| 59 | bar | ||
| 60 | EOF1 | ||
| 61 | bar | ||
| 62 | EOF2 | ||
| 63 | |||
| 56 | print $'; # This should not start a string! | 64 | print $'; # This should not start a string! |
| 57 | 65 | ||
| 58 | print "hello" for /./; | 66 | print "hello" for /./; |