       (lambda (c)
         (funcall
          cb
-         (mapcar 'company-ycmd-construct-candidate
+         (mapcar 'company-ycmd--construct-candidate
                  (assoc-default 'completions c)))))))
 
-(defun company-ycmd-get-metadata (candidate)
+(defun company-ycmd--meta (candidate)
   "Fetch the metadata text-property from a candidate string."
   (get-text-property 0 'detailed_info candidate))
 
-(defun company-ycmd-get-annotation (candidate)
+(defun company-ycmd--annotation (candidate)
   "Fetch the annotation text-property from a candidate string."
   (let ((params (get-text-property 0 'menu_text candidate))
         (type (get-text-property 0 'kind candidate))

           (company-grab-symbol-cons "\\.\\|->\\|::" 2)
         (company-grab-symbol))))

(defun company-ycmd-get-candidates (prefix)
  "Candidates-command handler for the company backend."
  (cons :async 'company-ycmd-candidates))

(defun company-ycmd-get-match (prefix)
  (point))

(defun company-ycmd-backend (command &optional arg &rest ignored)

            (unless (zerop (length extra))
              (concat " -> " extra)))))

(defun company-ycmd--prefix ()
  "Prefix-command handler for the company backend."
  (and (memq major-mode company-ycmd-modes)
       buffer-file-name
