   "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 (> merlin-idle-delay 0.) (not merlin-idle-timer))
      (setq merlin-idle-timer
            (run-with-idle-timer merlin-idle-delay t 'merlin-idle-hook)))
  (setq merlin-type-buffer (get-buffer-create "*merlin types*"))
  (with-current-buffer merlin-type-buffer
    (funcall merlin-favourite-caml-mode)))

(defun merlin-is-ml-buffer ()

(defvar merlin-report-warnings t
  "If non-nil, report warnings.")

(defvar merlin-type-buffer-name "* merlin types *")
(defvar merlin-favourite-caml-mode
  'tuareg-mode
  "The OCaml mode to use for the *merlin types* buffer.")
