anchor.diff:    (buffer-mark-cancel (current-buffer))
     t)
   
  +(define-command copy-region-to-clipboard (start end) ("r")
  +  (copy-to-clipboard (points-to-string start end)))
  +
   (define-key *global-keymap* "C-w" 'kill-region)
   (define-command kill-region (start end) ("r")
     (when (point< end start)
  
positive.code:     (kill-ring-new))
    (delete-character-with-killring start (count-characters start end) t)
    t)
  
  (define-key *global-keymap* "C-k" 'kill-line)
  (define-command kill-line (&optional arg) ("P")
  
negative.code:           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
  