                                merlin-margin-lock)))
 
 (defun merlin-update-highlight-lock-zone ()
-  (if merlin-lock-zone-highlight-overlay
+  "Marks the position of the lock zone by highlighting the zone"
+    (if merlin-lock-zone-highlight-overlay
       (delete-overlay merlin-lock-zone-highlight-overlay))
   (setq merlin-lock-zone-highlight-overlay (make-overlay (point-min) merlin-lock-point))
   (overlay-put merlin-lock-zone-highlight-overlay 'face 'merlin-locked-face))

    (set (make-local-variable 'merlin-type-overlay) nil)
    (set (make-local-variable 'merlin-lock-zone-highlight-overlay) nil)
    (set (make-local-variable 'merlin-lock-zone-margin-overlay) nil)
    (set (make-local-variable 'merlin-prefix) nil)
    (set (make-local-variable 'merlin-error-prefix) nil)
    (set (make-local-variable 'merlin-enclosing-overlay) nil)
    (set (make-local-variable 'merlin-enclosing-types) nil)
    (set (make-local-variable 'merlin-enclosing-offset) nil)
    (set (make-local-variable 'merlin-last-point-type) nil)

     (let ((temp start))
       (while (< (point) end)
	 (merlin-tell-piece mode temp (point))
	 (setq temp (point))
	 (forward-line 10))
       (merlin-tell-piece mode temp end))))

(defun merlin-tell-till-end-of-phrase ()
  "Tell merlin the buffer until the end of the current phrase is met.
It proceeds by telling (with the end mode) each line until it returns true or until we are at the end of the buffer"
  (let ((temp-point (point))
        (end-p nil))
