   (interactive)
   (newline)
   (if merlin-continuous-feed
-      (merlin-point nil))) 
+      (merlin-update-ppoint nil)))
 (defun merlin-to-point ()
   "Updates the merlin to the current point, reporting error"
   (interactive)
-  (merlin-point t))
+  (merlin-update-point t))
 
 ;; Mode definition
 (defvar merlin-mode-map

(defun merlin-tell-till-end-of-phrase ()
  "Tell merlin the buffer until the end of phrase.
It proceeds by telling (with the end mode) each line until it returns true or until we are at the end of the buffer"
  (save-excursion
    (end-of-line)
    (let ((temp-point (point))
        (end-p nil))
      (forward-line 1)
      (while (and (not end-p) (< (point) (point-max)))
        (if (equal ;; this is not tautological since value is never nil
             (merlin-is-return ;; tell end returned true => we are done
              (merlin-tell-piece "end" temp-point (point)))
             t)
            (progn
              (merlin-debug "OK BUDDY")
              (setq end-p t))
          (progn
            (setq temp-point (point))
            (forward-line 1)
            (end-of-line))))
          ;; End of buffer
          (if (not end-p)
              (merlin-send-command "tell" '("end" nil)))
          (merlin-get-position))))
      
      
      
  

  (setq merlin-pending-errors-overlay nil))

(defun merlin-handle-errors (errors)
  (merlin-delete-error-overlays)
  (setq merlin-pending-errors (append errors nil))
  (setq merlin-pending-errors-overlay 
