   (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-check-synchronize ()
+  "If merlin point is before the end of line send everything up to the end of line"
+  (interactive)
+  (if (> (point-at-eol) merlin-lock-point)
+      (merlin-update-point (point-at-eol))))
+
 (defun merlin-edit (start end length)
   (if (< start merlin-lock-point)
       (merlin-update-point start)))


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


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