       (merlin--acquire-buffer)
       (merlin--error-check nil)
       (setq err (merlin--error-prev-cycle)))
-    (unless err (message "No more errors"))
+    (unless (or err merlin-erroneous-buffer) (message "No errors"))
     (when err
       (goto-char (car err))
       (message (merlin-chomp (cdr (assoc 'message (cdr err)))))

         (errors (if merlin-report-warnings errors
                   (remove-if (lambda (e) (merlin-error-warning-p (cdr (assoc 'message e))))
                              errors))))
    (if (and (not errors) (not no-loc)) (when view-errors-p (message "ok"))
      (progn
        (setq merlin-erroneous-buffer t)
        (when no-loc

      (merlin--acquire-buffer)
      (merlin--error-check nil)
      (setq err (merlin--error-next-cycle)))
    (unless (or err merlin-erroneous-buffer) (message "No errors"))
    (when err
      (goto-char (car err))
      (message (merlin-chomp (cdr (assoc 'message (cdr err)))))
