From: Dmitry Gutov <dgutov@yandex.ru>
Date: Mon, 21 Dec 2015 13:13:15 +0000 (+0200)
Subject: Handle empty list of candidates
X-Git-Url: https://code.delx.au/gnu-emacs-elpa/commitdiff_plain/946c798dfc19047ae3cebe63d00db84ec525a9bc?hp=07a4e9e62e5894238b4754102f6a1841b4630294

Handle empty list of candidates
---

diff --git a/company.el b/company.el
index 8d416de92..498920afb 100644
--- a/company.el
+++ b/company.el
@@ -1239,7 +1239,7 @@ can retrieve meta-data for them."
           (push anno2 annos)
           (push str res)            ; Maintain ordering.
           (setq str str2)))))
-    (push str res)
+    (when str (push str res))
     (nreverse res)))
 
 (defun company--transform-candidates (candidates)
diff --git a/test/core-tests.el b/test/core-tests.el
index dcadfd3ab..46d17093b 100644
--- a/test/core-tests.el
+++ b/test/core-tests.el
@@ -399,6 +399,9 @@
       (and (ert-equal-including-properties (car list1) (car list2))
            (ct-equal-including-properties (cdr list1) (cdr list2)))))
 
+(ert-deftest company-strips-duplicates-returns-nil ()
+  (should (null (company--preprocess-candidates nil))))
+
 (ert-deftest company-strips-duplicates-within-groups ()
   (let* ((kvs '(("a" . "b")
                 ("a" . nil)