       (add-to-list 'ac-sources 'merlin-ac-source))
     (add-hook 'completion-at-point-functions
               #'merlin-completion-at-point nil 'local)
-    (add-to-list 'after-change-functions 'merlin-sync-edit)
-    (merlin-load-project-file)))
+    (add-to-list 'after-change-functions 'merlin-sync-edit)))
 
 (defun merlin-can-handle-buffer ()
   "Simple sanity check (used to avoid running merlin on, e.g., completion buffer)."

    (when failed (message (cdr failed))))
  (merlin-error-reset))

(defun merlin-load-project-file ()
  "Load the .merlin file corresponding to the current buffer."
  (interactive)
  (when buffer-file-name
    (merlin--acquire-buffer t)))

(defun merlin-goto-project-file ()
  "Goto the merlin file corresponding to the current file."
  (interactive)
  (let* ((file merlin-project-file)
         (file (if (listp file) (car file) file)))
    (if file
      (find-file-other-window file)
      (message "No project file for the current buffer."))))

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

                                     (interactive)
                                     (let ((data (elt merlin-enclosing-types merlin-enclosing-offset)))
                                       (when (cddr data)
                                           (message "Copied %s to kill-ring" (car data))
                                           (kill-new (car data))))))

    keymap)
