     (merlin-tell-piece-split "struct" merlin-lock-point (point))
     (merlin-tell-till-end-of-phrase view-errors-p)))
   
-(defun merlin-check-synchronize (&optional quiet)
+(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 (not quiet))))))
+          (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."

(defun merlin-source-init ()
  "Called at the beginning of a completion to fill the cache (the
variable `merlin-cache')."
  (setq merlin-completion-point ac-point)
  (merlin-complete-identifier ac-prefix))


  "Go to the beginning of the next phrase."
  (interactive)
  (save-excursion
    (merlin-check-synchronize)
    (merlin-goto-phrase "current" 1)
    (forward-line 1)
    (merlin-check-synchronize))
  (merlin-goto-phrase "next" 0))

(defun merlin-prev-phrase ()
  "Go to the beginning of the previous phrase."
  (interactive)
  (merlin-check-synchronize)
  (merlin-goto-phrase "prev" 0))
    
(defun merlin-to-point ()
