     (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)) 
+      (let* ((buffer (get-buffer-create buffer-name))
              (process-environment (append environment process-environment))
              (p (apply #'start-file-process "merlin" buffer-name
                        command `("-protocol" "sexp" . ,(append extra-flags flags)))))

(defun merlin-ac-source-refresh-cache()
  "Refresh the cache of completion."
  (setq merlin-ac-prefix (merlin-completion-prefix ac-prefix))
  (setq merlin-ac-cache 
        (mapcar #'merlin-ac-make-popup-item (merlin-completion-data merlin-ac-prefix))))

  
(defun merlin-ac-source-init ()
  "Initialize the cache for `auto-complete' completion.
Called at the beginning of a completion to fill the cache (the

  nil :lighter (:eval (merlin-lighter))
  :keymap merlin-mode-map
  (if merlin-mode
      (merlin-setup)
    (when (merlin-can-handle-buffer)
      (merlin-error-gc)
      (when merlin-lock-zone-highlight-overlay
