 
 (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)))

  (interactive)
  (merlin-update-point (point))
)
(defun merlin-synchronize-point ()
  "Synchronize emacs and merlin wrt point"
  (interactive)
  (setq merlin-point (merlin-make-point 
		      (merlin-is-return (merlin-send-command "seek" '("position")))))
  (merlin-update-overlay))
(defun merlin-edit (start end length)
  (if (< start merlin-lock-point)
      (merlin-update-point start)))


(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)
