X-Git-Url: https://code.delx.au/gnu-emacs-elpa/blobdiff_plain/395f846b05fa37be4d00247941a370e6e0b7790e..2d9bf1e9ce40c7670a39fce8ee7d0ffe1ff2fbc7:/company.el

diff --git a/company.el b/company.el
index e35d7e50d..443e63819 100644
--- a/company.el
+++ b/company.el
@@ -1202,6 +1202,7 @@ can retrieve meta-data for them."
           (progn (setq res 'done) nil)))))
 
 (defun company--preprocess-candidates (candidates)
+  (cl-assert (cl-every #'stringp candidates))
   (unless (company-call-backend 'sorted)
     (setq candidates (sort candidates 'string<)))
   (when (company-call-backend 'duplicates)