 ;; Faces
 ;;
 
-(defface merlin-locked-face
-  '((((background dark)) :background "#222278")
-    (t :background "#eaf8ff"))
-  "Face for a region that merlin knows of."
-  :group 'merlin)
-
 (defface merlin-type-face
   '((t :inherit caml-types-expr-face))
   "Face for highlighting a typed expr."

        (merlin-mode -1))
    (progn
      (merlin-error-gc)
      (when merlin-lock-zone-highlight-overlay
        (delete-overlay merlin-lock-zone-highlight-overlay))
      (when merlin-lock-zone-fringe-overlay
        (delete-overlay merlin-lock-zone-fringe-overlay))
      (when merlin-highlight-overlay
        (delete-overlay merlin-highlight-overlay))
      (merlin-error-delete-overlays)
      )))

(defun merlin-after-save ()
  (when (merlin-error-after-save) (merlin-error-check)))

  "Only highlight first line of multi-line error messages"
  :group 'merlin :type 'boolean)

(defcustom merlin-default-flags nil
  "The flags to give to ocamlmerlin."
  :group 'merlin :type '(repeat string))
