   (add-hook 'completion-at-point-functions
             #'merlin-completion-at-point nil 'local)
   (add-to-list 'after-change-functions 'merlin-sync-edit)
-  (merlin-load-project-file)
-  (with-current-buffer (get-buffer-create merlin-type-buffer-name)
-    (funcall merlin-favourite-caml-mode)))
+  (merlin-load-project-file))
 
 (defun merlin-is-ml-buffer ()
   "Return true if current buffer corresponds to a ML file."

                 'at (merlin-unmake-point (point)))
           callback-if-success callback-if-exn)))

(defun merlin-type-display (bounds type &optional quiet)
  "Display the type TYPE of the the expression occuring at BOUNDS.
If QUIET is non nil, then an overlay and the merlin types can be used."

      (if (not quiet)
          (message "<no information>"))
    (progn 
      (if (<= (cond ((string-match "\n" type)) (0)) 8)
          (message "%s" type)
        (progn
          (merlin-type-display-in-buffer type)
          (display-buffer merlin-type-buffer-name)))
      (if (and (not quiet) bounds)
          (merlin-highlight bounds 'merlin-type-face)))))

