anchor.diff:            ((not line))
           (write-sequence (data line) s)
           (terpri s)))
  -    (setf (buffer-modified buffer) nil)))
  +    (setf (buffer-property buffer 'new-file) nil
  +          (buffer-modified buffer) nil)))
   
   (defun list-buffers-command ()
     (let ((buffer (get-buffer-create "*Buffers*")))
  
positive.code:               (t (return))))))
    (values))
  
  (defun scan-forward (mark predicate)
    (when (not (and (not (next-line (mark-line mark))) ; no next line
                    (eql (mark-charpos mark) (line-length (mark-line mark)))))
      (loop
         (when (funcall predicate (if (eql (mark-charpos mark) (line-length (mark-line mark)))
                                      #\Newline
                                      (line-character (mark-line mark) (mark-charpos mark))))
           (return t))
         (when (not (move-mark mark))
           (return nil)))))
  
  (defun scan-backward (mark predicate)
    (loop
       ;; Stop when at the start of the buffer.
       ;; Examine the character on the left-hand side of the mark.
       (when (not (move-mark mark -1))
         (return nil))
       (when (funcall predicate (line-character (mark-line mark) (1- (mark-charpos mark))))
         (return t))))
  
  (defun move-word (buffer &optional (n 1))
    "Move point forward by N words. N may be negative."
  
negative.code:         (write-sequence (data line) s)
          (when (next-line line)
            (terpri s))))
      (setf (buffer-property buffer 'new-file) nil
            (buffer-modified buffer) nil)))
  
  (defun write-file-command ()
    (let* ((buffer (current-buffer *editor*))
  