Mercurial > vim

comparison runtime/indent/perl.vim @ 5277:42bf9264e64e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Update runtime files.
author Bram Moolenaar <bram@vim.org>
date Sat, 03 Aug 2013 18:35:36 +0200
parents 11cd8d58372e
children 63b0b7b79b25
comparison
equal deleted inserted replaced
5276:be570e7912d6 5277:42bf9264e64e
1 " Vim indent file 1 " Vim indent file
2 " Language: Perl 5 2 " Language: Perl 5
3 " Maintainer: vim-perl <vim-perl@googlegroups.com> 3 " Maintainer: vim-perl <vim-perl@googlegroups.com>
4 " Homepage: http://github.com/vim-perl/vim-perl 4 " Homepage: http://github.com/vim-perl/vim-perl
5 " Bugs/requests: http://github.com/vim-perl/vim-perl/issues 5 " Bugs/requests: http://github.com/vim-perl/vim-perl/issues
6 " Last Change: 2013 Jul 24 6 " Last Change: 2013-07-24
7 7
8 " Suggestions and improvements by : 8 " Suggestions and improvements by :
9 " Aaron J. Sherman (use syntax for hints) 9 " Aaron J. Sherman (use syntax for hints)
10 " Artem Chuprina (play nice with folding) 10 " Artem Chuprina (play nice with folding)
11 11
131 " If the brace is highlighted in one of those groups, indent it. 131 " If the brace is highlighted in one of those groups, indent it.
132 " 'perlHereDoc' is here only to handle the case '&foo(<<EOF)'. 132 " 'perlHereDoc' is here only to handle the case '&foo(<<EOF)'.
133 if synid == "" 133 if synid == ""
134 \ || synid == "perlMatchStartEnd" 134 \ || synid == "perlMatchStartEnd"
135 \ || synid == "perlHereDoc" 135 \ || synid == "perlHereDoc"
136 \ || synid == "perlBraces"
136 \ || synid =~ "^perlFiledescStatement" 137 \ || synid =~ "^perlFiledescStatement"
137 \ || synid =~ '^perl\(Sub\|Block\|Package\)Fold' 138 \ || synid =~ '^perl\(Sub\|Block\|Package\)Fold'
138 let brace = strpart(line, bracepos, 1) 139 let brace = strpart(line, bracepos, 1)
139 if brace == '(' || brace == '{' || brace == '[' 140 if brace == '(' || brace == '{' || brace == '['
140 let ind = ind + &sw 141 let ind = ind + &sw
147 let bracepos = matchend(cline, '^\s*[])}]') 148 let bracepos = matchend(cline, '^\s*[])}]')
148 if bracepos != -1 149 if bracepos != -1
149 let synid = synIDattr(synID(v:lnum, bracepos, 0), "name") 150 let synid = synIDattr(synID(v:lnum, bracepos, 0), "name")
150 if synid == "" 151 if synid == ""
151 \ || synid == "perlMatchStartEnd" 152 \ || synid == "perlMatchStartEnd"
153 \ || synid == "perlBraces"
152 \ || synid =~ '^perl\(Sub\|Block\|Package\)Fold' 154 \ || synid =~ '^perl\(Sub\|Block\|Package\)Fold'
153 let ind = ind - &sw 155 let ind = ind - &sw
154 endif 156 endif
155 endif 157 endif
156 else 158 else