+ (all-completions prefix company-eclim--doc)))
+
+(defun company-eclim--search-point (prefix)
+ (if (or (plusp (length prefix)) (eq (char-before) ?.))
+ (1- (point))
+ (point)))
+
+(defun company-eclim--meta (candidate)
+ (gethash candidate company-eclim--doc))
+
+(defun company-eclim--prefix ()
+ (let ((prefix (company-grab-symbol)))
+ (when prefix
+ ;; Completion candidates for annotations don't include '@'.
+ (when (eq ?@ (string-to-char prefix))
+ (setq prefix (substring prefix 1)))
+ prefix)))