   "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 ;;

  "Jump to the log file of merlin."
  (interactive)
  (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-lighter ()

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