 
 (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-source-init ()
  (setq merlin-completion-point ac-point)
  (merlin-complete-identifier ac-prefix))
  


(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)
  (let ((ident (merlin-ident-under-point)))
    (if ident
	(let ((typ (merlin-type-of-expression ident)))
