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