anchor.diff:  (define-command dired-previous-line (n) ("p")
     (let ((point (current-point)))
       (line-offset point (- n))
  -    (when (<= (point-linum point) *start-line-number*)
  +    (when (dired-first-line-p point)
         (move-to-start-point point))
       (line-start point)))
   
  
positive.code: (defvar *file-attribute* (make-attribute nil nil))
  (defvar *directory-attribute* (make-attribute "blue" nil :bold-p t))
  (defvar *link-attribute* (make-attribute "green" nil))
  
  (defvar *start-line-number*)
  
  (define-major-mode dired-mode ()
      (:name "dired"
  
negative.code:           (insert-string cur-point output-string)
            (buffer-start cur-point)
            (line-offset cur-point 3)
            (setf (start-point buffer) (copy-point cur-point :temporary))
            (loop
  	     (let ((string (line-string-at cur-point)))
  	       (multiple-value-bind (start end start-groups end-groups)
  