diff options
| author | Stefan Monnier | 2014-07-08 12:51:35 -0400 |
|---|---|---|
| committer | Stefan Monnier | 2014-07-08 12:51:35 -0400 |
| commit | 5e799349fde90ef1ad9c73261ecdac0a11ef57ff (patch) | |
| tree | efc7bb2f0e2a63b74f3d3fbfcb1723c6316d6e4e /test | |
| parent | a897d1b1febb05b7d45d51351356f25e3c0c0b89 (diff) | |
| download | emacs-5e799349fde90ef1ad9c73261ecdac0a11ef57ff.tar.gz emacs-5e799349fde90ef1ad9c73261ecdac0a11ef57ff.zip | |
* lisp/progmodes/perl-mode.el: Use syntax-ppss; fix one indentation case.
(perl-indent-line): Use syntax-ppss to detect we're in a doc-section.
(perl-continuation-line-p): Don't skip over anything else than labels.
Return the previous char.
(perl-calculate-indent): Use syntax-ppss instead of parse-start
and update callers accordingly. For continuation lines, check the
the case of array hashes.
(perl-backward-to-noncomment): Make it non-interactive.
(perl-backward-to-start-of-continued-exp): Rewrite.
* test/indent/perl.perl: Add indentation pattern for hash-table entries.
Diffstat (limited to 'test')
| -rw-r--r-- | test/ChangeLog | 4 | ||||
| -rwxr-xr-x | test/indent/perl.perl | 7 |
2 files changed, 11 insertions, 0 deletions
diff --git a/test/ChangeLog b/test/ChangeLog index 029360f5664..d4e7f818f1c 100644 --- a/test/ChangeLog +++ b/test/ChangeLog | |||
| @@ -1,3 +1,7 @@ | |||
| 1 | 2014-07-08 Stefan Monnier <monnier@iro.umontreal.ca> | ||
| 2 | |||
| 3 | * indent/perl.perl: Add indentation pattern for hash-table entries. | ||
| 4 | |||
| 1 | 2014-07-04 Michael Albinus <michael.albinus@gmx.de> | 5 | 2014-07-04 Michael Albinus <michael.albinus@gmx.de> |
| 2 | 6 | ||
| 3 | * automated/dbus-tests.el (dbus-test02-register-service-session) | 7 | * automated/dbus-tests.el (dbus-test02-register-service-session) |
diff --git a/test/indent/perl.perl b/test/indent/perl.perl index 34cd4af1125..6b05a5f1d07 100755 --- a/test/indent/perl.perl +++ b/test/indent/perl.perl | |||
| @@ -24,6 +24,13 @@ EOF2 | |||
| 24 | bar | 24 | bar |
| 25 | EOF1 | 25 | EOF1 |
| 26 | 26 | ||
| 27 | $config = { | ||
| 28 | b => | ||
| 29 | [ | ||
| 30 | "123", | ||
| 31 | ], | ||
| 32 | c => "123", | ||
| 33 | }; | ||
| 27 | 34 | ||
| 28 | print <<"EOF1" . <<\EOF2 . s/he"llo/th'ere/; | 35 | print <<"EOF1" . <<\EOF2 . s/he"llo/th'ere/; |
| 29 | foo | 36 | foo |