From: Dmitry Gutov <dgutov@yandex.ru>
Date: Mon, 23 May 2016 01:35:41 +0000 (+0300)
Subject: company--preprocess-candidates: Check that all CANDIDATES are strings
X-Git-Url: https://code.delx.au/gnu-emacs-elpa/commitdiff_plain/2d9bf1e9ce40c7670a39fce8ee7d0ffe1ff2fbc7

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

To make #516 fail faster.
---

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)