   (let ((file (lookup-default 'logfile (merlin-process-data) nil)))
     (if file (find-file-other-window file)
       (message "No log file for this instance."))))
-
-(defun merlin-process-dead-p ()
-  "Return non-nil if merlin process is dead."
-  (not (and (merlin-process)
-            (equal (process-status (merlin-process)) 'run))))
 
 (defun merlin-lighter ()
   "Return the lighter for merlin which indicates the status of merlin process."

      (message "Starting merlin instance: %s (binary=%s)."
	       name command))
    (setq merlin-instance name)
    (when (not (merlin-process-started-p name))
      (let* ((buffer (get-buffer-create buffer-name))
             (process-environment (append
                                    (if logfile

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

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

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

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

(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.
