       (merlin-tell-piece 'source start point)
       (setq merlin-lock-point
           (merlin-tell-till-end-of-phrase)))))
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; POINT SYNCHRONIZATION ;;
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;

    (if err (message (cdr (assoc 'message err))))))

(defun merlin-show-error-on-current-line-soon ()
  "Register a timer for showing the error on the current line
soon. We use a timer to avoid disturbing navigation in the
buffer."
  (merlin-cancel-show-error-timer)
  (setq merlin-show-error-timer
        (run-at-time 0.1 nil 'merlin-show-error-on-current-line)))

  (merlin-make-point (merlin-send-command (list 'seek 'exact (merlin-unmake-point point)))))

(defun merlin-seek-end ()
  "Move merlin's point to the end of its own view of the buffer."
  (merlin-make-point (merlin-send-command '(seek end))))

;;;;;;;;;;;;;;;;;;;;
