anchor.diff:        (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))
  +    (lem::move-point (lem::buffer-point-marker buffer)
  +                     *start-marker*)
       buffer))
   
   (setf *find-directory-function* 'dired-buffer)
  
positive.code:       (funcall open-file file))))
  
  (defun mark-current-line (flag)
    (when (and (<= *start-line-number* (current-linum))
               (not (last-line-p (current-marker))))
      (save-excursion
        (beginning-of-line)
  
negative.code: (defvar *directory-attribute* (make-attribute "blue" nil :bold-p t))
  (defvar *link-attribute* (make-attribute "green" nil))
  
  (defvar *start-marker*)
  
  (define-major-mode dired-mode ()
    (:name "dired"
  