   "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-buffer nil
-  "The buffer to use to display types."
-  )
 (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.")

            (if (and (not quiet) bounds)
                (merlin-create-overlay 'merlin-type-overlay bounds 'merlin-type-face "5 sec")))
        (when (not quiet)
          (display-buffer merlin-type-buffer)
          (with-current-buffer merlin-type-buffer
            (erase-buffer)
            (insert type)))))))
          

  (if (and (> merlin-idle-delay 0.) (not merlin-idle-timer))
      (setq merlin-idle-timer
            (run-with-idle-timer merlin-idle-delay t 'merlin-idle-hook)))
  (with-current-buffer (get-buffer-create merlin-type-buffer-name)
    (funcall merlin-favourite-caml-mode)))

(defun merlin-is-ml-buffer ()
