Cfrgtkky

I'd like to make a command that works like this: :KeepCursor {cmd} will the given execute ex command string, then restore the cursor's position. A primary example is:

:KeepCursor normal! *

which would perform a keyword search without jumping to the next match. This can of course be accomplished in other ways, but it's a good demonstration of the functionality I'm looking for, which I want to work in every possible case.

This is my attempt so far. I'm using feedkeys+imtx because I'd like the command to behave exactly as though I typed it. I put the cursor restoration in a finally so it works even if the command encounters an error.

function! s:keepcursor(qargs)

  let l:view = winsaveview()

  let l:winid = win_getid()

  try

    call feedkeys(':'.a:qargs."<cr>", 'imtx')

  finally

    if win_getid() != l:winid

      if !win_id2win(l:winid)

        return

      endif

      call win_gotoid(l:winid)

    endif

    call winrestview(l:view)

  endtry

endfunction



command! -nargs=* KeepCursor call s:keepcursor(<q-args>)

However, it does not seem to work. Using :KeepCursor normal! * prints the search string but does not highlight anything. Running :hlsearch afterwards highlights the wrong thing.

My questions are a) can it be explained why this doesn't work and b) can such a :KeepCursor command be written?

Can it be written?

Yup.

command! -nargs=* -complete=command KeepCursor

       let [s:view, s:win] = [winsaveview(), win_getid()] |

       try |

         execute <q-args> |

       finally |

         if win_id2win(s:win) |

           call win_gotoid(s:win) |

         endif |

         keepjumps call winrestview(s:view) |

       endtry

Can it be explained why this doesn't work

There is a lot going on here. I haven't debugged anything, but my guess is feedkeys() is part of your problem. I typically avoid feedkeys() as it is often easier to debug other methods.

Can it be written?

Possibly, but it might be a lot harder than expected. Because, what do you do with commands that close the current window? Or commands, that add lines above the current cursor position?

One problem you are running into is described unter :h function-search-undo.

The last used search pattern and the redo command "."

will not be changed by the function.  This also

implies that the effect of :nohlsearch is undone

when the function returns.

The only way I know to circumvent this is to make use of using feedkeys(), but apparently, this does not work with the x flag, you have given to the feedkeys command (and I am not actually sure this is needed here). So using

call feedkeys(':'.a:qargs."<cr>", 'imt')

and your example starts to work (well, almost). However, if you start using this, you'll notice the cursor position will be off, despite the fact, that winrestview() should have restored the cursor position. I think this happens, because the feedkeys() call will insert the command after the current command is executed, e.g. after the function s:keepcursor() returns. I dont' know a way around this (well, perhaps a workaround would be to try to make use of timers, but I consider this ugly).

Note, there is also this script that implements a :KeepView command.