anchor.diff:      (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")
  
positive.code:           delete-next-char
            delete-previous-char
            copy-region
            kill-region
            kill-line
            yank
            yank-pop
            next-line
            previous-line
            forward-char
  
negative.code:           (t
             (message "Previous command was not a yank")
             nil))))
  
  (define-command yank-to-clipboard (&optional arg) ("p")
    (let ((string (if (null arg)
                      (current-kill-ring)
                      (kill-ring-nth arg))))
      (copy-to-clipboard string)
      t))
  
  (define-command paste-from-clipboard () ()
    (insert-string (current-point) (get-clipboard-data))
    t)
  
  (defvar *next-line-prev-column* nil)
  
  