 
 - It continues until it finds the end of a phrase.
 
-The parameter `view-errors-p' controls whether we should care for errors"
+The parameter VIEW-ERRORS-P controls whether we should care for errors"
   (merlin-delete-error-overlays)
   (setq merlin-pending-errors nil)
   (if (not (merlin-is-last-user-p))

     'bounds-of-ocaml-atom-at-point)

; overlay management
(defun merlin-put-margin-overlay (overlay s &optional face)
  "Put a margin overlay inside OVERLAY, with face FACE and string STRING"
  (set-window-margins nil 1)
  (if face
      (overlay-put overlay 'face face))
  (overlay-put overlay
               'before-string 
               (propertize " " 'display 
                           `((margin left-margin) ,s)
                           )))

(defun merlin-highlight (bounds face)
  "Create an overlay on BOUNDS (of the form (START . END)) and give it face."
  (if merlin-highlight-overlay
      (delete-overlay merlin-highlight-overlay))
  (setq merlin-highlight-overlay (make-overlay (car bounds) (cdr bounds)))

    (funcall merlin-favourite-caml-mode)))

(defun merlin-is-ml-buffer ()
  "Return true if current buffer corresponds to a ML file."
  (and
   (buffer-file-name)
   (equal (file-name-extension (buffer-file-name))
