 (defun merlin-type-expr (exp)
   "Prompt the user for expression EXP, then show its type."
   (interactive "s# ")
-  (merlin--acquire-buffer)
   (merlin/sync-to-point)
   (let ((on-success (lambda (type) (merlin--type-display nil type nil)))
         (on-error   (lambda (err)

    (setq dot-merlins
          (append (if (stringp dot-merlin)  (list dot-merlin)  dot-merlin)
                  (if (stringp dot-merlins) (list dot-merlins) dot-merlins)))
    (merlin/send-command (if dot-merlins
                           (list 'reset 'dot_merlin dot-merlins 'auto name)
                           (list 'reset 'auto name)))
    (merlin-error-reset)
    (setq merlin--dirty-point (point-min))))

(defun merlin--check-project-file ()
  "Check if .merlin file loaded successfully."

(defun merlin-goto-project-file ()
  "Goto the merlin file corresponding to the current file."
  (interactive)
  (let* ((dot_merlins (car (merlin--project-get)))
         (file (if (listp dot_merlins) (car dot_merlins) nil)))
    (if file
