   "Clear error list."
   (interactive)
   (setq merlin-erroneous-buffer nil)
-  (merlin-error-delete-overlays))
+  (remove-overlays nil nil 'merlin-kind 'error))
 
 (defun merlin--overlay (overlay)
   "Returns non-nil if OVERLAY is managed by merlin."

    (setq errors (remove nil (mapcar 'merlin--overlay-pending-error errors)))
    (setq err (merlin--error-at-position point errors))
    (if err (cons point err) nil)))

(defun merlin-error-prev ()
  "Jump back to previous error."


(defun merlin-highlight (bounds face)
  "Create an overlay on BOUNDS (of the form (START . END)) and give it FACE."
  (remove-overlays nil nil 'merlin-kind 'highlight)
  (lexical-let ((overlay (make-overlay (car bounds) (cdr bounds))))
    (overlay-put overlay 'face face)
    (overlay-put overlay 'merlin-kind 'highlight)
    (unwind-protect (sit-for 60) (delete-overlay overlay))))

;;;;;;;;;;;;;;;;;;;;;;;;
;; PROCESS MANAGEMENT ;;
