anchor.diff:             (setf (buffer-filename buffer) filename)
              (when (probe-file filename)
                (let ((*inhibit-modification-hooks* t))
  -               (let ((encoding (insert-file-contents (buffer-start-point buffer) filename)))
  +               (let ((encoding
  +                       (handler-bind ((encoding-read-error
  +                                        (lambda (e)
  +                                          (declare (ignore e))
  +                                          (delete-buffer buffer))))
  +                         (insert-file-contents (buffer-start-point buffer) filename))))
                    (setf (buffer-encoding buffer) encoding)))
                (buffer-unmark buffer))
              (buffer-start (buffer-point buffer))
  
positive.code: (defvar *find-directory-function* nil)
  (defvar *default-external-format* :detect-encoding)
  
  (defun %encoding-read (encoding in point)
    (let ((end-of-line (encoding-end-of-line encoding)))
      (loop
        (multiple-value-bind (str eof-p)
            (read-line in nil)
          (cond
            (eof-p
             (when str
  
negative.code:   (let* ((encoding (encoding external-format end-of-line))
           (use-internal-p (typep encoding 'internal-encoding)))
      (with-point ((point point :left-inserting))
        (with-open-virtual-file (stream filename
                                        :element-type (unless use-internal-p
                                                        '(unsigned-byte 8))
                                        :external-format (and use-internal-p external-format)
                                        :direction :input)
          (if use-internal-p
              (%encoding-read encoding point stream filename)
              (encoding-read encoding
                             stream
                             (encoding-read-detect-eol
                              #'(lambda (c)
                                  (when c (insert-char/point point (code-char c)))))))))
  