        (fstar-subp-company--prefix))
       (`candidates
        (fstar-subp-company-candidates arg fstar-subp-company--completion-context))
+      ((guard (and arg (plist-member (text-properties-at 0 arg) command)))
+       (get-text-property 0 command arg))
       (`meta
        `(:async . ,(apply-partially #'fstar-subp-company--async-meta arg)))
       (`doc-buffer


(defconst fstar-syntax-constants-re
  (regexp-opt fstar-syntax-constants 'symbols))

(defface fstar-structure-face
  '((((background light)) (:bold t))

     candidate 'fstar--match-end match-end 'fstar--annot annot 'fstar--context context)
    (fstar-subp-company--post-process-candidate candidate)))

(defun fstar-subp-company--candidates-continuation
    (context callback additional-completions status response)
  "Handle the results (STATUS, RESPONSE) of an `autocomplete' query.
Return (CALLBACK CANDIDATES).  CONTEXT is propertized onto all candidates.
ADDITIONAL-COMPLETIONS are added to the front of the results list"
  (pcase status
    ((or `failure `interrupted)
     (funcall callback nil))
