diff options
author | Florian Pritz <f-p@gmx.at> | 2009-06-18 19:18:48 +0200 |
---|---|---|
committer | Florian Pritz <f-p@gmx.at> | 2009-06-18 19:18:48 +0200 |
commit | 488d3624be68a1655fc8b40241f514e52855d18b (patch) | |
tree | 92b5edbd9e5193c188cca3dd7b6e92ae562312b3 /vim/vim-7.2/spell/fixdup.vim | |
parent | f15be7756cf924b6b116655846804d45d971581e (diff) | |
download | aur-packages-488d3624be68a1655fc8b40241f514e52855d18b.tar.gz aur-packages-488d3624be68a1655fc8b40241f514e52855d18b.tar.xz |
update
Diffstat (limited to 'vim/vim-7.2/spell/fixdup.vim')
-rw-r--r-- | vim/vim-7.2/spell/fixdup.vim | 27 |
1 files changed, 27 insertions, 0 deletions
diff --git a/vim/vim-7.2/spell/fixdup.vim b/vim/vim-7.2/spell/fixdup.vim new file mode 100644 index 0000000..0dd532d --- /dev/null +++ b/vim/vim-7.2/spell/fixdup.vim @@ -0,0 +1,27 @@ +" Vim script to fix duplicate words in a .dic file vim: set ft=vim: +" +" Usage: Edit the .dic file and source this script. + +let deleted = 0 + +" Start below the word count. +let lnum = 2 +while lnum <= line('$') + let word = getline(lnum) + if word !~ '/' + if search('^' . word . '/', 'w') != 0 + let deleted += 1 + exe lnum . "d" + continue " don't increment lnum, it's already at the next word + endif + endif + let lnum += 1 +endwhile + +if deleted == 0 + echomsg "No duplicate words found" +elseif deleted == 1 + echomsg "Deleted 1 duplicate word" +else + echomsg printf("Deleted %d duplicate words", deleted) +endif |