anchor.diff:                   (insert-character point #\newline))))))))
       (values external-format end-of-line)))
   
  -(defun find-file-buffer (filename)
  +(defun find-file-buffer (filename &key temporary (enable-undo-p t))
     (when (pathnamep filename)
       (setf filename (namestring filename)))
     (setf filename (expand-file-name filename))
  
positive.code:                        (cons external-format end-of-line))))
               (buffer-unmark buffer))
             (buffer-start (buffer-point buffer))
             (buffer-enable-undo buffer)
             (update-changed-disk-date buffer)
             (run-hooks *find-file-hook* buffer)
             (values buffer t)))))
  
negative.code:          (if *find-directory-function*
               (funcall *find-directory-function* filename)
               (editor-error "~A is a directory" filename)))
          ((and (not temporary)
                (find filename (buffer-list) :key #'buffer-filename :test #'equal)))
          (t
           (let* ((name (file-namestring filename))
                  (buffer (make-buffer (if temporary
                                           name
                                           (if (get-buffer name)
                                               (uniq-buffer-name name)
                                               name))
                                       :enable-undo-p nil
                                       :temporary temporary)))
             (setf (buffer-filename buffer) filename)
             (when (probe-file filename)
               (let ((*inhibit-modification-hooks* t))
  