anchor.diff:  
   (define-key *insert-keymap* "escape" 'vi-insert-end)
   
  -(defun call-global-command (key-seq arg)
  -  (let ((command (lem::keymap-find-keybind *global-keymap* key-seq)))
  -    (call-command command arg)))
  -
  -(define-command vi-command-dispatcher (arg) ("P")
  -  (let* ((key-seq (last-read-key-sequence))
  -         (command (lem::keymap-find-keybind (vi-state-keymap *current-state*) key-seq)))
  -    (if command
  -        (call-command command arg)
  -        (call-global-command key-seq arg))))
  -
  -(define-command vi-default-undef-hook (arg) ("P")
  -  (let ((key-seq (last-read-key-sequence)))
  -    (if (insertion-key-p key-seq)
  -        (undefined-key)
  -        (call-global-command key-seq arg))))
  -
   (define-command vi-move-to-beginning-of-line/universal-argument-0 () ()
     (if (mode-active-p (current-buffer) 'universal-argument)
         (universal-argument-0)
  
positive.code:         :lem-vi-mode.commands))
  (in-package :lem-vi-mode)
  
  (defvar *vi-keymap* (make-keymap :name '*vi-keymap* :undef-hook 'vi-command-dispatcher))
  (defvar *command-keymap* (make-keymap :name '*command-keymap* :undef-hook 'vi-default-undef-hook))
  (defvar *insert-keymap* (make-keymap :name '*insert-keymap*))
  
  (defvar *current-state*)
  (defvar *modeline-element*)
  
  (define-attribute state-attribute
  
negative.code:   (message " -- INSERT --")
    (setf (element-name *modeline-element*) "[INSERT]"))
  
  (defun enable-hook ()
    (setf *modeline-element* (make-vi-modeline-element))
    (modeline-add-status-list *modeline-element*)
    (trans-state 'command))
  
  (defun disable-hook ()
    (modeline-remove-status-list *modeline-element*))
  
  (define-minor-mode vi-mode
      (:global t
       :keymap *command-keymap*
       :enable-hook #'enable-hook
       :disable-hook #'disable-hook))
  
  (define-key *command-keymap* "0" 'vi-move-to-beginning-of-line/universal-argument-0)
  (define-key *command-keymap* "1" 'universal-argument-1)
  