 
 (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."
+  (merlin-check-synchronize)
   (interactive "p")
   (if (> arg 1)
       (merlin-show-type-of-region)


(defun merlin-show-type-of-point-quiet ()
  "Show the type of the identifier under the point if it is short (a value)"
  (let ((ident (merlin-ident-under-point)))
    (if ident
	(let ((typ (merlin-type-of-expression ident)))

	  (goto-char merlin-completion-point)
	  (search-forward ":")
	  (backward-char 1)
	  (delete-region (point) endpoint))
        ;; workaround for merlin-enter
        (merlin-check-synchronize))))
)


