anchor.diff:                         (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)
  +  (with-point ((cur-point (buffer-point buffer)))
  +    (buffer-start cur-point)
  +    (when (ppcre:scan "^#!" (line-string-at cur-point))
  +      (line-offset cur-point 1))
  +    (loop :until (end-line-p cur-point)
  +          :for string := (line-string-at cur-point)
             :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)
  +                  (line-offset cur-point 1)
                     (return)))))
   
   (defun find-file-buffer (filename)
  
positive.code:                             (< 0 (length str)))
                     (setf end (1- (length str))))
                   (write-line str output :end end)))))))
        (setf (buffer-external-format (point-buffer marker))
              (cons external-format end-of-line))
        marker)))
  
  (defun prepare-auto-mode (buffer)
    (let* ((filename (file-namestring (buffer-filename buffer)))
  
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)
  