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

  "Current offset in `merlin-enclosing-types'.")
(defvar merlin-last-point-type nil
  "Last position where the user ran `merlin-magic-show-type'.")
(defvar merlin-idle-point nil
  "Position of the last time we printed the type of point.")
(defvar merlin-type-overlay nil "Merlin overlay used for type-checking.")
(defvar merlin-idle-timer nil
  "The timer used to print the type of the expression under point.")

(defvar merlin-use-auto-complete-mode nil
  "If non nil, use `auto-complete-mode' in any buffer")

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

