view runtime/spell/fixdup.vim @ 7433:b5d07f5e78ba v7.4.1020

commit https://github.com/vim/vim/commit/7eae47af89580df07a72079405a0e7b8aad784a8 Author: Bram Moolenaar <Bram@vim.org> Date: Fri Jan 1 17:49:44 2016 +0100 patch 7.4.1020 Problem: On MS-Windows there is no target to run tests with gvim. Solution: Add the testgvim target.
author Christian Brabandt <cb@256bit.org>
date Fri, 01 Jan 2016 18:00:05 +0100
parents 7bc41231fbc7
children 7cfe57329284
line wrap: on
line source

" 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