diff --git a/ftplugin/todo.vim b/ftplugin/todo.vim
index 64b83e0..4fcadb3 100644
--- a/ftplugin/todo.vim
+++ b/ftplugin/todo.vim
@@ -111,12 +111,15 @@ function! TodoTxtPrioritizeDecrease()
 endfunction
 
 function! TodoTxtPrioritizeAdd (priority)
+    let oldpos=getcurpos()
     let line=getline('.')
     if line !~ '^([A-F])'
         :call TodoTxtPrioritizeAddAction(a:priority)
+        let oldpos[2]+=4
     else
         exec ':s/^([A-F])/('.a:priority.')/'
     endif
+    call setpos('.',oldpos)
 endfunction
 
 function! TodoTxtPrioritizeAddAction (priority)