anchor.diff:            delete-next-char
             delete-previous-char
             copy-region
  +          copy-region-to-clipboard
             kill-region
  +          kill-region-to-clipboard
             kill-line
             yank
             yank-pop
  +          yank-to-clipboard
  +          paste-from-clipboard
             next-line
             previous-line
             forward-char
  
positive.code:           (t
             (message "Previous command was not a yank")
             nil))))
  
  (defvar *next-line-prev-column* nil)
  
  
negative.code:     (kill-ring-new))
    (delete-character-with-killring start (count-characters start end) t)
    t)
  
  (define-command kill-region-to-clipboard (start end) ("r")
    (copy-region-to-clipboard start end)
    (delete-character start (count-characters start end)))
  
  (define-key *global-keymap* "C-k" 'kill-line)
  (define-command kill-line (&optional arg) ("P")
  