anchor.diff:        (funcall open-file file))))
   
   (defun mark-current-line (flag)
  -  (when (and (<= *start-line-number* (current-linum))
  +  (when (and (marker<= *start-marker* (current-marker))
                (not (last-line-p (current-marker))))
       (save-excursion
         (beginning-of-line)
  
positive.code:       (setf (buffer-read-only-p buffer) t)
        (buffer-disable-undo buffer)
        (update buffer))
      (let ((prev-buffer (current-buffer)))
        (setf (current-buffer) buffer)
        (move-to-start-point)
        (setf (current-buffer) prev-buffer))
      buffer))
  
  (setf *find-directory-function* 'dired-buffer)
  
negative.code: (defun selected-files ()
    (let ((files '()))
      (save-excursion
        (lem::move-point (current-marker) *start-marker*)
        (loop
          (beginning-of-line)
          (let ((flag (char= (following-char) #\*)))
            (when flag
              (lem::line-start (current-marker))
              (push (get-file) files)))
          (unless (forward-line 1)
            (return))))
  