anchor.diff:                              (< 0 (length str)))
                      (setf end (1- (length str))))
                    (write-line str output :end end)))))))
  -      (setf (buffer-external-format (point-buffer marker))
  +      (setf (buffer-external-format (point-buffer point))
               (cons external-format end-of-line))
  -      marker)))
  +      point)))
   
   (defun prepare-auto-mode (buffer)
     (let* ((filename (file-namestring (buffer-filename buffer)))
  
positive.code:                        (get-bvar :file-property-list :buffer buffer)))))))
  
  (defun scan-file-property-list (buffer)
    (with-point ((cur-marker (buffer-point buffer)))
      (buffer-start cur-marker)
      (when (ppcre:scan "^#!" (line-string-at cur-marker))
        (line-offset cur-marker 1))
      (loop :until (end-line-p cur-marker)
            :for string := (line-string-at cur-marker)
            :do (ppcre:register-groups-bind (result)
                    ("-\\*-(.*)-\\*-" string)
                  (when result
                    (scan-line-property-list buffer result)
                    (return)))
            :do (if (string= "" (string-trim '(#\space #\tab) string))
                    (line-offset cur-marker 1)
                    (return)))))
  
  (defun find-file-buffer (filename)
  
negative.code:   (declare (ignore pathnaem))
    (values :utf-8 :lf))
  
  (defun insert-file-contents (point filename)
    (multiple-value-bind (external-format end-of-line)
        (detect-external-format-from-file filename)
      (with-open-stream (output (make-buffer-output-stream point nil))
        (with-open-file (in filename :external-format external-format)
          (loop
            (multiple-value-bind (str eof-p)
  