 (defun ocamlformat--process-errors (filename tmpfile errorfile errbuf)
   (with-current-buffer errbuf
     (if (eq ocamlformat-show-errors 'echo)
-        (progn
-          (message "%s" (buffer-string))
-          (ocamlformat--kill-error-buffer errbuf))
+      (message "%s" (buffer-string))
       (insert-file-contents errorfile nil nil nil)
       ;; Convert the ocamlformat stderr to something understood by the compilation mode.
       (goto-char (point-min))

files and will overwrite ocamlformat's echo output if used from inside
a `before-save-hook'."
    :type '(choice
            (const :tag "Own buffer" buffer)
            (const :tag "Echo area" echo)
            (const :tag "None" nil))
      :group 'ocamlformat)

          (bufferfile (make-temp-file "ocamlformat" nil ext))
          (outputfile (make-temp-file "ocamlformat" nil ext))
          (errorfile (make-temp-file "ocamlformat" nil ext))
          (errbuf
            (cond
              ((eq ocamlformat-show-errors 'buffer)
                (get-buffer-create "*compilation*"))
              ((eq ocamlformat-show-errors 'echo)
                (get-buffer-create "*OCamlFormat stderr*"))))
          (patchbuf (get-buffer-create "*OCamlFormat patch*"))
          (coding-system-for-read 'utf-8)
          (coding-system-for-write 'utf-8)
