 			   (merlin-get-completion ident)))
   )
 (defun merlin-get-completion-data (ident)
-  "Return the completion data for IDENT, that is a list of pairs (COMPLETION . TYPE)"
+  "Return the completion data for IDENT, that is a list of pairs (COMPLETION . TYPE)."
   (let* ((prefix (merlin-compute-prefix ident))
          (data (merlin-get-completion ident)))
     (mapcar

  (overlay-put merlin-lock-zone-highlight-overlay 'face 'merlin-locked-face))

(defun merlin-update-point (view-errors-p)
  "Move the merlin point to around the given the current
point. It proceeds as follows: 

- It retracts merlin from the point given in argument to get it
to the last phrase ending.

  (merlin-send-command "complete" (list "prefix" ident "at" (merlin-unmake-point (point)))))

(defun merlin-tell-string (mode string)
  "Tell using MODE the string STRING to merlin."
  (merlin-send-command "tell" (list mode string)))

(defun merlin-flush-tell ()
