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

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


(defun merlin-show-type-of-region ()
  "Show the type of the region."
  (interactive)
  (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)."
