           nil)
       (with-current-buffer (merlin-process-buffer)
         (if merlin-debug (merlin-debug (format ">%s" string)))
-        (setq merlin-process-last-user name)
         (tq-enqueue merlin-process-queue string "\n"
                     (cons callback-if-success (cons callback-if-exn command))
                     #'(lambda (closure answer)

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

(defun merlin-load-project-file ()
  "Load the .merlin file corresponding to the current file."
  (interactive)
  (when buffer-file-name
    (let* ((r (merlin-send-command (list 'project 'find buffer-file-name)))
           (failed (assoc 'failures r))
           (result (assoc 'result r)))
      (when failed (message (cdr failed)))
      (when (and result (listp (cdr result)))
        (setq merlin-project-file (cadr result)))
      (merlin-rewind))))

(defun merlin-goto-project-file ()
  "Goto the merlin file corresponding to the current file."

(defun merlin-tell-to-point (&optional point)
  "Tell to merlin part of the buffer between START and END. START
may be nil, in that case the current cursor of merlin is used."
  (merlin-reset-user)
  (let* ((point (if point point (point)))
         (start (min point merlin-dirty-point))
         (start (car (merlin-send-cursor-command
