 (defun merlin-show-type-of-region ()
   "Show the type of the region."
   (interactive)
-  (merlin-check-synchronize t)
+  (merlin-check-synchronize)
   (merlin-show-type (cons (region-beginning) (region-end))))
 (defun merlin-show-type-of-point-quiet ()
   "Show the type of the identifier under the point if it is short (a value)."

        (message "%s%s" (car ret) (cdr ret)))))
(defun merlin-completion-at-point ()
  (save-excursion
    (merlin-check-synchronize t))
  (save-excursion
    (skip-syntax-backward "w_.")
    (let ((start (point)))

    (merlin-tell-piece-split "struct" merlin-lock-point (point))
    (merlin-tell-till-end-of-phrase view-errors-p)))
  
(defun merlin-check-synchronize ()
  "If merlin point is before the end of line send everything up to the end of line."
  (interactive)
  (save-excursion
    (forward-line 1)
    (let ((p merlin-lock-point))
      (if (> (point-at-eol) merlin-lock-point)
          (merlin-update-point nil)))))

(defun merlin-edit (start end length)
  "Called when an edit is make to retract the locked zone if it is needed."
