viper elisp loop until event

Question

So, in vim, in insert mode, there is C-o which puts you in command mode until a cursor movement. I find this to be very convenient to move around while in insert mode. I know of no equivalent in emacs viper. This question is how to elisp this. Basically it would be something like this

(define-key viper-insert-global-user-map (kbd "C-o") 'poll-until-cursor-movement)

(defun poll-until-cursor-movement
    (viper-exit-insert-state)
    (let ((pinit (point)) (pnow (point)))
        (while (= pinit pnow)
            (setq pnow (point))
        )
        (viper-insert)
    )
)

This does not seem to do anything. Could someone try and point me in the right direction?

Thanks, k