           (candidates
            (merlin-sync-to-point)
            (mapcar #'(lambda (x) (propertize (car x) 'merlin-meta (cadr x)))
-                   (merlin-completion-data arg)))
+                   (merlin--completion-data arg)))
           (post-completion
             (let ((minibuffer-message-timeout nil))
               (minibuffer-message "%s : %s" arg (get-text-property 0 'merlin-meta arg))))

  (merlin--acquire-buffer)
  (merlin-send-command 'refresh)
  (merlin-after-save))

(defun merlin-get-completion (ident)
  "Return the completion for ident IDENT."
  (merlin-send-command
    `(complete prefix ,ident at ,(merlin-unmake-point (- (point) (length ident))))))

(defun merlin-parse-position (result)
  "Returns a pair whose first member is a point set at merlin cursor position

;; COMPLETION-AT-POINT SUPPORT ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defun merlin--completion-format-entry (entry)
  "Format the completion entry ENTRY."
  (let* ((kind (cdr (assoc 'kind entry)))
         (desc (cdr (assoc 'desc entry)))
