         (highlight (merlin-update-highlight-lock-zone))))
    merlin-display-lock-zone))
 
+
 (defun merlin-update-margin-lock-zone ()
   (if merlin-lock-zone-margin-overlay
       (delete-overlay merlin-lock-zone-margin-overlay))

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

; overlay management
(defun merlin-create-overlay (var bounds face timer)
  "Creates an overlay in the current buffer starting at `start', ending at `end',
using `face' and storing it in `var'. If `timer' is non-nil, the overlay is to disappear after `timer' seconds

                   (let ((overlay (make-overlay
                                   (merlin-make-point (cdr (assoc 'start err)))
                                   (merlin-make-point (cdr (assoc 'end err))))))
                     (if (string-match (cdr (assoc 'message err)) "^Warning")
                         (merlin-put-margin-overlay overlay "!" compilation-error-face)
                       (merlin-put-margin-overlay overlay "?" compilation-warning-face))
                     overlay)) errors))
  (message "(pending error, use C-c C-x to jump)"))

