From 2d9bf1e9ce40c7670a39fce8ee7d0ffe1ff2fbc7 Mon Sep 17 00:00:00 2001
From: Dmitry Gutov <dgutov@yandex.ru>
Date: Mon, 23 May 2016 04:35:41 +0300
Subject: [PATCH] company--preprocess-candidates: Check that all CANDIDATES are
 strings

To make #516 fail faster.
---
 company.el | 1 +
 1 file changed, 1 insertion(+)

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)
-- 
2.39.2