anchor.diff:  (defun selected-files ()
     (let ((files '()))
       (save-excursion
  -      (move-point (current-point) *start-point*)
  +      (move-to-start-point (current-point))
         (loop
   	 (beginning-of-line)
   	 (let ((flag (char= (following-char) #\*)))
  
positive.code:           (insert-string cur-point output-string)
            (buffer-start cur-point)
            (line-offset cur-point 3)
            (setf *start-point* (copy-point cur-point :temporary))
            (loop
  	     (let ((string (line-string-at cur-point)))
  	       (multiple-value-bind (start end start-groups end-groups)
  
negative.code: 
  (defun mark-current-line (flag)
    (let ((point (current-point)))
      (when (and (<= *start-line-number* (point-linum point))
                 (not (last-line-p point)))
        (line-start point)
        (with-buffer-read-only (point-buffer point) nil
  