 (defun merlin-error-prev ()
   "Jump back to previous error."
   (interactive)
-  (if (and (= merlin--dirty-point (point-max))
-           (merlin--acquired-buffer))
+  (if (= merlin--dirty-point (point-max))
       (when (merlin--process-idle)
         (merlin--error-check-async))
     (merlin--error-check nil))

      (ignore-errors (kill-process merlin-process)))
    (unless merlin-debug (kill-buffer buffer))))

(defun merlin--reset ()
  "Rewind the knowledge of merlin of the current buffer to zero."
  (let* ((name (or buffer-file-name "toplevel"))
         (dot-merlin (lookup-default 'dot-merlin merlin--grouping nil))

(defun merlin-flags-clear ()
  "Clear flags for the current project"
  (interactive)
  (let* ((r (merlin/send-command '(flags clear)))
         (failed (assoc 'failures r)))
    (when failed (message "%s" (cdr failed))))
