     (merlin-tell-piece-split "struct" merlin-lock-point (point))
     (setq merlin-lock-point (merlin-tell-till-end-of-phrase))
     (merlin-view-errors view-errors-p)
-    (merlin-update-overlay))
+    (merlin-update-lock-zone-display))
 )    
   
 (defun merlin-check-synchronize (&optional clean)


(defvar merlin-idle-timer nil
  "The timer used to print the type of the expression under point")

;; UTILS


            (process-send-eof (merlin-get-process))
            (delete-process (merlin-get-process))))
      (cancel-timer merlin-idle-timer)
      (if merlin-lock-zone-highlight-overlay
          (delete-overlay merlin-lock-zone-highlight-overlay))
      (if merlin-lock-zone-margin-overlay
          (delete-overlay merlin-lock-zone-margin-overlay))
      (if merlin-enclosing-overlay (delete-overlay merlin-enclosing-overlay))
      (merlin-delete-error-overlays)
      (if (get-buffer (merlin-make-buffer-name))
