   (merlin-check-synchronize t)
   (merlin-goto-phrase "prev" 0))
     
-;; Idle 
-(defun merlin-idle-hook ()
-  (if (<= merlin-idle-delay 0.)
-      (cancel-timer merlin-idle-timer)
-    (if (and merlin-mode
-	     (not (eq (point) merlin-idle-point)))
-	(progn
-	  (merlin-show-type-of-point-quiet)
-	  (setq merlin-idle-point (point))))))
-
-(defun merlin-enter ()
-  "Try to update the merlin point and fail silently."
-  (interactive)
-  (newline)
-  (if merlin-continuous-feed
-      (merlin-update-point nil)))
 (defun merlin-to-point ()
   "Update the merlin to the current point, reporting error."
   (interactive)

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


                     (substitute-command-keys "\\[merlin-next-error]")
                     )
          (message "%s" (cdr (assoc 'message err))))
        (merlin-highlight (merlin-make-bounds err) 'next-error))
    (next-error)))

