Mercurial > vim
annotate runtime/indent/idlang.vim @ 11252:d7c1d5f7cf2a v8.0.0512
patch 8.0.0512: check for available characters takes too long
commit https://github.com/vim/vim/commit/1572e30607e9a3bee9750242bf37168f7d2b6e66
Author: Bram Moolenaar <Bram@vim.org>
Date: Sat Mar 25 20:16:28 2017 +0100
patch 8.0.0512: check for available characters takes too long
Problem: Check for available characters takes too long.
Solution: Only check did_start_blocking if wtime is negative. (Daisuke
Suzuki, closes #1591)
| author | Christian Brabandt <cb@256bit.org> |
|---|---|
| date | Sat, 25 Mar 2017 20:30:04 +0100 |
| parents | dd6c2497c997 |
| children | 63b0b7b79b25 |
| rev | line source |
|---|---|
| 7 | 1 " IDL (Interactive Data Language) indent file. |
| 2 " Language: IDL (ft=idlang) | |
|
3526
dd6c2497c997
Fix more 'cpo' issues in runtime files.
Bram Moolenaar <bram@vim.org>
parents:
7
diff
changeset
|
3 " Last change: 2012 May 18 |
| 7 | 4 " Maintainer: Aleksandar Jelenak <ajelenak AT yahoo.com> |
| 5 | |
| 6 " Only load this indent file when no other was loaded. | |
| 7 if exists("b:did_indent") | |
| 8 finish | |
| 9 endif | |
| 10 let b:did_indent = 1 | |
| 11 | |
|
3526
dd6c2497c997
Fix more 'cpo' issues in runtime files.
Bram Moolenaar <bram@vim.org>
parents:
7
diff
changeset
|
12 setlocal indentkeys=o,O,0=endif,0=ENDIF,0=endelse,0=ENDELSE,0=endwhile,0=ENDWHILE,0=endfor,0=ENDFOR,0=endrep,0=ENDREP |
| 7 | 13 |
| 14 setlocal indentexpr=GetIdlangIndent(v:lnum) | |
| 15 | |
| 16 " Only define the function once. | |
| 17 if exists("*GetIdlangIndent") | |
| 18 finish | |
| 19 endif | |
| 20 | |
| 21 function GetIdlangIndent(lnum) | |
| 22 " First non-empty line above the current line. | |
| 23 let pnum = prevnonblank(v:lnum-1) | |
| 24 " v:lnum is the first non-empty line -- zero indent. | |
| 25 if pnum == 0 | |
| 26 return 0 | |
| 27 endif | |
| 28 " Second non-empty line above the current line. | |
| 29 let pnum2 = prevnonblank(pnum-1) | |
| 30 | |
| 31 " Current indent. | |
| 32 let curind = indent(pnum) | |
| 33 | |
| 34 " Indenting of continued lines. | |
| 35 if getline(pnum) =~ '\$\s*\(;.*\)\=$' | |
| 36 if getline(pnum2) !~ '\$\s*\(;.*\)\=$' | |
| 37 let curind = curind+&sw | |
| 38 endif | |
| 39 else | |
| 40 if getline(pnum2) =~ '\$\s*\(;.*\)\=$' | |
| 41 let curind = curind-&sw | |
| 42 endif | |
| 43 endif | |
| 44 | |
| 45 " Indenting blocks of statements. | |
| 46 if getline(v:lnum) =~? '^\s*\(endif\|endelse\|endwhile\|endfor\|endrep\)\>' | |
| 47 if getline(pnum) =~? 'begin\>' | |
| 48 elseif indent(v:lnum) > curind-&sw | |
| 49 let curind = curind-&sw | |
| 50 else | |
| 51 return -1 | |
| 52 endif | |
| 53 elseif getline(pnum) =~? 'begin\>' | |
| 54 if indent(v:lnum) < curind+&sw | |
| 55 let curind = curind+&sw | |
| 56 else | |
| 57 return -1 | |
| 58 endif | |
| 59 endif | |
| 60 return curind | |
| 61 endfunction | |
| 62 |