             (cmd  (list 'type 'expression expr 'at loc))
             (res  (merlin-send-command cmd)))
        (merlin--type-display-in-buffer res)))
-    
+
     (t (merlin--type-display-in-buffer
          (merlin--company-get-candidate-type candidate))))
   (get-buffer merlin-type-buffer-name))

  "Return the buffer name corresponding to the merlin instance NAME."
  (format " *merlin (%s)*" name))

(defun merlin-process-buffer ()
  "Return the process buffer of the current buffer."
  (get-buffer (merlin-instance-buffer-name merlin-instance)))

(defun merlin-process ()
  "Return the process of the current buffer."
  (and (merlin-process-buffer)
       (buffer-local-value 'merlin-process (merlin-process-buffer))))

(defun merlin-process-owner ()
  "Return the last user of the process of the current buffer."
  (buffer-local-value 'merlin-process-owner (merlin-process-buffer)))

(defun merlin-start-process (flags &optional configuration)
  "Start the merlin process by fetching the information inside CONFIGURATION. FLAGS contains the list of flags to give merlin.

         (instance (lookup-default 'name conf "default")))
    (setq merlin-instance instance)
    ; if there is not yet a merlin process
    (when (merlin-process-dead-p instance)
      (merlin-start-process merlin-default-flags conf))
    (when (and (fboundp 'auto-complete-mode)
               merlin-use-auto-complete-mode)
