 (defun merlin-show-type-of-point-quiet ()
   "Show the type of the identifier under the point if it is short (a value)"
   (merlin-check-synchronize t)
-  (merlin-show-type (bounds-of-thing-at-point 'ocamlatom) &optional t))
+  (merlin-show-type (bounds-of-thing-at-point 'ocamlatom) t))
 
 (defun merlin-show-type-of-point (arg) 
   "Show the type of the identifier under the point. If it is called with a prefix argument, then show the type of the region."

  (overlay-put merlin-error-overlay 'face 'next-error)
  (run-at-time "1 sec" nil 'merlin-remove-error-overlay)
  )
;; (defun merlin-handle-errors (errors)
;;   "Goes to the location of the first error and adds an overlay"
;;   (let ((message (cdr (assoc 'message errors)))
;; 	(beg (cdr (assoc 'start errors)))
;; 	(end (cdr (assoc 'end errors)))
;; 	(type (cdr (assoc 'type errors))))
;;     (goto-char (merlin-make-point beg))
;;     ;; make the idle thread shut up
;;     (setq merlin-idle-point (point))
;;     (merlin-error-highlight (merlin-make-point beg)
;; 		      (merlin-make-point end))
;;     (message "%s: %s" type message)
;; ))

(defun merlin-delete-error-overlays ()
  "Removes error overlays"

  (interactive)
  (newline)
  (if merlin-continuous-feed
      (merlin-update-ppoint nil)))
(defun merlin-to-point ()
  "Updates the merlin to the current point, reporting error"
  (interactive)
  (merlin-update-point t))

;; Mode definition
(defvar merlin-mode-map
