Function: cape-wrap-properties

cape-wrap-properties is a natively compiled function defined in cape.el.

Signature

(cape-wrap-properties CAPF &rest PROPERTIES)

Documentation

Call CAPF and add completion PROPERTIES.

Completion properties include :exclusive, :category,
:annotation-function, :affixation-function, :display-sort-function,
:company-kind, :company-doc-buffer, :company-docsig, :company-location,
:company-deprecated and :company-prefix-length.

Source Code

;; Defined in /nix/store/nxaggkd0bn9kr2xfg9hyw77q51q20r8y-emacs-packages-deps/share/emacs/site-lisp/elpa/cape-20260927.2347/cape.el
;;;###autoload
(defun cape-wrap-properties (capf &rest properties)
  "Call CAPF and add completion PROPERTIES.
Completion properties include :exclusive, :category,
:annotation-function, :affixation-function, :display-sort-function,
:company-kind, :company-doc-buffer, :company-docsig, :company-location,
:company-deprecated and :company-prefix-length."
  (let ((keys (cl-loop for (k _) on properties by #'cddr
                       collect (intern (substring (symbol-name k) 1)))))
    (pcase (funcall capf)
      (`(,beg ,end ,table . ,plist)
       `( ,beg ,end ,(cape--table-drop-metadata table keys)
          ,@properties ,@plist)))))