   "When user attention is required, merlin will use `sit-for' only if `merlin-allow-sit-for' is `t'."
   :group 'merlin :type 'boolean)
 
-
+(defalias 'merlin-find-file 'find-file-other-window
+  "The function called when merlin try to open a file (doesn't apply to
+merlin-locate, see `merlin-locate-in-new-window').")
 
 ;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Internal variables ;;

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

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

(defun merlin-lighter ()
