anchor.diff:                           (rotatef start end)
                            (character-offset end 1))
                          (when (point/= start end)
  -                         (copy-region start end)))))
  +                         (copy-region start end)
  +                         (kill-append "" nil '(:vi-nolf))))))
                    (move-point (current-point) start))))))))
   
   (define-command vi-paste-after () ()
  
positive.code: 
  (define-command vi-forward-word-end (&optional (n 1)) ("p")
    (vi-forward-word-begin n)
    (unless *vi-delete-recursive*
      (vi-backward-char)))
  
  (define-command vi-forward-word-end-broad (&optional (n 1)) ("p")
  
negative.code:         (progn
            (character-offset (current-point) 1)
            (yank)
            (character-offset (current-point) -1))
          (progn
            (insert-character (line-end (current-point)) #\newline)
            (yank)))))
  
  (define-command vi-paste-before () ()
    (line-start (current-point))
  