anchor.diff:  (defun kill-region (buffer mark-1 mark-2)
     (multiple-value-bind (first-mark last-mark)
         (delete-region buffer mark-1 mark-2)
  -    (setf (killed-region *editor*) (cons first-mark last-mark))))
  +    (when (or (not (mark-equal-p first-mark last-mark))
  +              (eql *last-command* 'kill-region))
  +      (setf *this-command* 'kill-region))
  +    (cond ((and (killed-region *editor*)
  +                (eql *last-command* 'kill-region))
  +           ;; Append to killed region.
  +           (insert-region-at-mark (cdr (killed-region *editor*))
  +                                  first-mark last-mark))
  +          (t ;; New killed region.
  +           (setf (killed-region *editor*) (cons first-mark last-mark))))))
   
   (defun kill-line (buffer)
     "Kill from point to the end of the line. If the point is at the end of the line,
  
positive.code:                                    :hyper (find :hyper (mezzanine.gui.compositor:key-modifier-state event)))
            (mezzanine.gui.compositor:key-key event)))))
  
  (defun editor-read-char ()
    (catch 'next-character
      (when (pending-event *editor*)
        (let ((event (pending-event *editor*)))
  
negative.code:   "Insert STRING into BUFFER at point. STRING is a string-designator, so can be a character."
    (loop for ch across (string string)
       if (char= ch #\Newline)
       do (insert-line (buffer-point buffer))
       else do (insert-char (buffer-point buffer) ch)))
  
  (defun order-marks (mark-1 mark-2)
    (let ((line-1 (mark-line mark-1))
  