diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2015-06-15 17:10:06 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2015-06-15 17:10:06 -0400 |
| commit | f784272f7381dfd1fc1e6ba2c3c79cd1b7a9c5cd (patch) | |
| tree | 5a0ff1dcff3763633edc0ff586dab519554bad5b /test/indent | |
| parent | e58a815339fe77f184da8e71e3b932a46b2c0433 (diff) | |
| download | emacs-f784272f7381dfd1fc1e6ba2c3c79cd1b7a9c5cd.tar.gz | |
* lisp/progmodes/perl-mode.el: Refine handling of /re/ and y/abc/def/
(perl--syntax-exp-intro-keywords): New var.
(perl--syntax-exp-intro-regexp, perl-syntax-propertize-function): Use it.
(bug#20800).
Diffstat (limited to 'test/indent')
| -rwxr-xr-x | test/indent/perl.perl | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/test/indent/perl.perl b/test/indent/perl.perl index ea487543219..f86a09b2733 100755 --- a/test/indent/perl.perl +++ b/test/indent/perl.perl @@ -59,3 +59,11 @@ print "hello" for /./; $fileType_filesButNot # bug#12373? = join( '|', map { quotemeta($_).'$' } @{$fileType->{filesButNot}} ); + +# There can be a comment between an if/when/while and a /<re>/ matcher! +return 'W' if #/^Not Available on Mobile/m; #W=Web only + /This video is not available on mobile devices./m; #bug#20800 + +# A "y|abc|def|" shouldn't interfere when inside a string! +$toto = " x \" string\""; +$toto = " y \" string\""; # This is not the `y' operator! |