       (message "%s" (cdr (assoc 'message (cdr err))))
       (merlin-highlight (cdr (assoc 'bounds (cdr err))) 'next-error))))
 
-(defun merlin-error-delete-overlays ()
-  "Remove error overlays."
-  (remove-overlays nil nil 'merlin-kind 'error))
-
-(defun merlin-error-warning-p (msg)
+(defun merlin--error-warning-p (msg)
   "Tell if the message MSG is a warning."
   (string-match "^Warning" msg))
 

    ; if there is not yet a merlin process
    (when (merlin-process-dead-p instance)
      (merlin-start-process merlin-default-flags conf))
    (add-to-list 'after-change-functions 'merlin--sync-edit)))

(defun merlin-can-handle-buffer ()
  "Simple sanity check (used to avoid running merlin on, e.g., completion buffer)."

  "Clear error list."
  (interactive)
  (setq merlin-erroneous-buffer nil)
  (remove-overlays nil nil 'merlin-kind 'error))

(defun merlin--overlay (overlay)
  "Returns non-nil if OVERLAY is managed by merlin."
