company--preprocess-candidates: Check that all CANDIDATES are strings

[gnu-emacs-elpa] / company.el

diff --git a/company.el b/company.el
index e35d7e50dd9d1f89ae7f411967722f52ab59592c..443e63819eb2490fa9189b63533ef1fbb8ee94a5 100644 (file)
--- 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)