Mercurial > vim
annotate runtime/ftplugin/pod.vim @ 34493:1fa23ccd6d9a v9.1.0153
patch 9.1.0153: Text properties corrupted with fo+=aw and backspace
Commit: https://github.com/vim/vim/commit/7ac1145fbebb66dfee325dc5265309877d941c4e
Author: zeertzjq <zeertzjq@outlook.com>
Date: Wed Mar 6 20:54:22 2024 +0100
patch 9.1.0153: Text properties corrupted with fo+=aw and backspace
Problem: Text properties corrupted with fo+=aw and backspace
Solution: Allocate line and move text properties
(zeertzjq)
closes: #14147
Signed-off-by: zeertzjq <zeertzjq@outlook.com>
Signed-off-by: Christian Brabandt <cb@256bit.org>
author | Christian Brabandt <cb@256bit.org> |
---|---|
date | Wed, 06 Mar 2024 21:00:11 +0100 |
parents | 8ae680be2a51 |
children |
rev | line source |
---|---|
29150 | 1 " Vim filetype plugin file |
2 " Language: Perl POD format | |
3 " Maintainer: vim-perl <vim-perl@googlegroups.com> | |
4 " Author: Doug Kearns <dougkearns@gmail.com> | |
5 " Homepage: https://github.com/vim-perl/vim-perl | |
6 " Bugs/requests: https://github.com/vim-perl/vim-perl/issues | |
7 " License: Vim License (see :help license) | |
33213
d84610677553
runtime(perl): Update ftplugin and indent files (#13052)
Christian Brabandt <cb@256bit.org>
parents:
29150
diff
changeset
|
8 " Last Change: 2023 Jul 05 |
34134
8ae680be2a51
runtime(ftplugin): Use "*" browsefilter pattern to match "All Files"
Christian Brabandt <cb@256bit.org>
parents:
33213
diff
changeset
|
9 " Last Change: 2021 Oct 19 |
8ae680be2a51
runtime(ftplugin): Use "*" browsefilter pattern to match "All Files"
Christian Brabandt <cb@256bit.org>
parents:
33213
diff
changeset
|
10 " 2024 Jan 14 by Vim Project (browsefilter) |
29150 | 11 |
12 if exists("b:did_ftplugin") | |
33213
d84610677553
runtime(perl): Update ftplugin and indent files (#13052)
Christian Brabandt <cb@256bit.org>
parents:
29150
diff
changeset
|
13 finish |
29150 | 14 endif |
33213
d84610677553
runtime(perl): Update ftplugin and indent files (#13052)
Christian Brabandt <cb@256bit.org>
parents:
29150
diff
changeset
|
15 let b:did_ftplugin = 1 |
29150 | 16 |
17 let s:save_cpo = &cpo | |
18 set cpo-=C | |
19 | |
20 setlocal comments=fb:=for\ comment | |
21 setlocal commentstring==for\ comment\ %s | |
22 | |
23 let b:undo_ftplugin = "setl com< cms<" | |
24 | |
25 if exists("loaded_matchit") && !exists("b:match_words") | |
26 let b:match_words = | |
27 \ '^=pod\>:^=cut\>,' . | |
28 \ '^=begin\s\+\(\S\+\):^=end\s\+\1,' . | |
29 \ '^=over\>:^=item\>:^=back\>,' . | |
30 \ '[IBCLEFSXZ]<<\%(\s\+\|$\)\@=:\%(\s\+\|^\)\@<=>>,' . | |
31 \ '[IBCLEFSXZ]<:>' | |
32 let b:undo_ftplugin .= " | unlet! b:match_words" | |
33 endif | |
34 | |
35 if (has("gui_win32") || has("gui_gtk")) && !exists("b:browsefilter") | |
36 let b:browsefilter = "POD Source Files (*.pod)\t*.pod\n" . | |
37 \ "Perl Source Files (*.pl)\t*.pl\n" . | |
34134
8ae680be2a51
runtime(ftplugin): Use "*" browsefilter pattern to match "All Files"
Christian Brabandt <cb@256bit.org>
parents:
33213
diff
changeset
|
38 \ "Perl Modules (*.pm)\t*.pm\n" |
8ae680be2a51
runtime(ftplugin): Use "*" browsefilter pattern to match "All Files"
Christian Brabandt <cb@256bit.org>
parents:
33213
diff
changeset
|
39 if has("win32") |
8ae680be2a51
runtime(ftplugin): Use "*" browsefilter pattern to match "All Files"
Christian Brabandt <cb@256bit.org>
parents:
33213
diff
changeset
|
40 let b:browsefilter .= "All Files (*.*)\t*\n" |
8ae680be2a51
runtime(ftplugin): Use "*" browsefilter pattern to match "All Files"
Christian Brabandt <cb@256bit.org>
parents:
33213
diff
changeset
|
41 else |
8ae680be2a51
runtime(ftplugin): Use "*" browsefilter pattern to match "All Files"
Christian Brabandt <cb@256bit.org>
parents:
33213
diff
changeset
|
42 let b:browsefilter .= "All Files (*)\t*\n" |
8ae680be2a51
runtime(ftplugin): Use "*" browsefilter pattern to match "All Files"
Christian Brabandt <cb@256bit.org>
parents:
33213
diff
changeset
|
43 endif |
29150 | 44 let b:undo_ftplugin .= " | unlet! b:browsefilter" |
45 endif | |
46 | |
33213
d84610677553
runtime(perl): Update ftplugin and indent files (#13052)
Christian Brabandt <cb@256bit.org>
parents:
29150
diff
changeset
|
47 function s:jumpToSection(direction) |
d84610677553
runtime(perl): Update ftplugin and indent files (#13052)
Christian Brabandt <cb@256bit.org>
parents:
29150
diff
changeset
|
48 let flags = a:direction == "backward" ? "bsWz" : "sWz" |
d84610677553
runtime(perl): Update ftplugin and indent files (#13052)
Christian Brabandt <cb@256bit.org>
parents:
29150
diff
changeset
|
49 if has("syntax_items") |
29150 | 50 let skip = "synIDattr(synID(line('.'), col('.'), 1), 'name') !~# '\\<podCommand\\>'" |
51 else | |
33213
d84610677553
runtime(perl): Update ftplugin and indent files (#13052)
Christian Brabandt <cb@256bit.org>
parents:
29150
diff
changeset
|
52 let skip = "" |
29150 | 53 endif |
54 for i in range(v:count1) | |
55 call search('^=\a', flags, 0, 0, skip) | |
56 endfor | |
57 endfunction | |
58 | |
59 if !exists("no_plugin_maps") && !exists("no_pod_maps") | |
33213
d84610677553
runtime(perl): Update ftplugin and indent files (#13052)
Christian Brabandt <cb@256bit.org>
parents:
29150
diff
changeset
|
60 for s:mode in ["n", "o", "x"] |
d84610677553
runtime(perl): Update ftplugin and indent files (#13052)
Christian Brabandt <cb@256bit.org>
parents:
29150
diff
changeset
|
61 for s:lhs in ["]]", "]["] |
d84610677553
runtime(perl): Update ftplugin and indent files (#13052)
Christian Brabandt <cb@256bit.org>
parents:
29150
diff
changeset
|
62 execute s:mode . "noremap <silent> <buffer> " . s:lhs . " <Cmd>call <SID>jumpToSection('forward')<CR>" |
d84610677553
runtime(perl): Update ftplugin and indent files (#13052)
Christian Brabandt <cb@256bit.org>
parents:
29150
diff
changeset
|
63 let b:undo_ftplugin .= " | silent! execute '" . s:mode . "unmap <buffer> " . s:lhs . "'" |
d84610677553
runtime(perl): Update ftplugin and indent files (#13052)
Christian Brabandt <cb@256bit.org>
parents:
29150
diff
changeset
|
64 endfor |
d84610677553
runtime(perl): Update ftplugin and indent files (#13052)
Christian Brabandt <cb@256bit.org>
parents:
29150
diff
changeset
|
65 for s:lhs in ["[[", "[]"] |
d84610677553
runtime(perl): Update ftplugin and indent files (#13052)
Christian Brabandt <cb@256bit.org>
parents:
29150
diff
changeset
|
66 execute s:mode . "noremap <silent> <buffer> " . s:lhs . " <Cmd>call <SID>jumpToSection('backward')<CR>" |
d84610677553
runtime(perl): Update ftplugin and indent files (#13052)
Christian Brabandt <cb@256bit.org>
parents:
29150
diff
changeset
|
67 let b:undo_ftplugin .= " | silent! execute '" . s:mode . "unmap <buffer> " . s:lhs . "'" |
d84610677553
runtime(perl): Update ftplugin and indent files (#13052)
Christian Brabandt <cb@256bit.org>
parents:
29150
diff
changeset
|
68 endfor |
d84610677553
runtime(perl): Update ftplugin and indent files (#13052)
Christian Brabandt <cb@256bit.org>
parents:
29150
diff
changeset
|
69 endfor |
d84610677553
runtime(perl): Update ftplugin and indent files (#13052)
Christian Brabandt <cb@256bit.org>
parents:
29150
diff
changeset
|
70 unlet s:mode s:lhs |
29150 | 71 endif |
72 | |
73 let &cpo = s:save_cpo | |
74 unlet s:save_cpo | |
75 | |
76 " vim: set expandtab: |