   "Show the current instance of the buffer in the lighter."
   :group 'merlin :type 'boolean)
 
-(defcustom merlin-report-dot-merlin-in-lighter nil
+(defcustom merlin-report-errors-in-lighter nil
   "Report absence of .merlin or errors in .merlin in the lighter."
   :group 'merlin :type 'boolean)
 

      (merlin--acquire-buffer)
      (let* ((messages nil)
             (project (merlin--project-get-cached)))
        (when merlin-report-dot-merlin-in-lighter
          (cond ((cdr project) (add-to-list 'messages "errors in .merlin"))
                ((not (car project)) (add-to-list 'messages "no .merlin"))))
        (when merlin-show-instance-in-lighter
          (add-to-list 'messages merlin-instance))
        (if messages (concat " merlin (" (mapconcat 'identity messages ",") ")")

(make-variable-buffer-local 'merlin-lock-zone-fringe-overlay)

;; Errors related variables
(defvar merlin-erroneous-buffer nil
  "Whether the buffer is erroneous or not")
(make-variable-buffer-local 'merlin-pending-errors)

(defvar merlin-pending-errors nil
  "Pending errors.")
(make-variable-buffer-local 'merlin-pending-errors)
