E37: No write since last change (add ! to override)

■ ad hoc 10:21

inoremap = <C-O>:call <SID>XMLEqualComplement()<CR>

function! s:XMLEqualComplement()
	let line = getline('.')
	let col = col('.')

	call s:CursorInsert('=')

	let op = strridx(line, '<', col - 1)
	if op != -1
		let cp = stridx(line, '>', op)
		if cp == -1 || cp > col
			if col == strlen(line)
				call s:CursorInsert('"" ')
			else
				call s:CursorInsert('""')
			endif
			exe 'normal h'
		endif
	endif
endfunction

function! s:CursorInsert(str)
	let line = getline('.')
	let col  = col('.')
	let pos  = getpos('.')

	if col != strlen(line)
		call setline(line('.'), line[:col -2] . a:str . line[col - 1:])
		let pos = getpos('.')
	else
		call setline(line('.'), line . a:str)
	endif

	let pos[2] = pos[2] + strlen(a:str)
	call setpos('.', pos)
endfunction

スペース挿入してごまかす

■ 逆引きvimscript 10:13

CursorInsert がアレみたいだ。とりあえず書き換えてみた。悪化してたら泣く

ああだめだ、これだとだから行末でだめなんだ。