   "Jump to the log file of merlin."
   (interactive)
   (let ((file (lookup-default 'logfile (merlin-process-data) nil)))
-    (if file (find-file-other-window file)
+    (if file (merlin-find-file file)
       (message "No log file for this instance."))))
 
 (defun merlin-lighter ()

         (names (mapcar (lambda (ext) (concat name ext)) exts))
         (file (merlin/send-command `(which path ,names)
                 #'(lambda (err) (message "No such file (message: %s)" err)))))
    (when file (find-file-other-window file))))

(defun merlin-switch-to-ml (name)
  "Switch to the ML file corresponding to the module NAME (fallback to MLI if no ML is provided)."

  (let* ((dot_merlins (car (merlin--project-get)))
         (file (if (listp dot_merlins) (car dot_merlins) nil)))
    (if file
        (merlin-find-file file)
      (message "No project file for the current buffer."))))

(defun merlin-flags-set (flag-string)
