From: Dmitry Gutov <dgutov@yandex.ru>
Date: Mon, 17 Feb 2014 01:30:19 +0000 (+0200)
Subject: company--capf-data: Check that the cdr is cons, not data itself
X-Git-Url: https://code.delx.au/gnu-emacs-elpa/commitdiff_plain/d3cac6e446903eee522795ab91aa03972f0d320b

company--capf-data: Check that the cdr is cons, not data itself
---

diff --git a/company-capf.el b/company-capf.el
index 77479aeee..f1b46d905 100644
--- a/company-capf.el
+++ b/company-capf.el
@@ -34,7 +34,7 @@
           (data (run-hook-wrapped 'completion-at-point-functions
                                   ;; Ignore misbehaving functions.
                                   #'completion--capf-wrapper 'optimist)))
-    (when (and (consp data) (numberp (nth 1 data))) data)))
+    (when (and (consp (cdr data)) (numberp (nth 1 data))) data)))
 
 (defun company-capf (command &optional arg &rest _args)
   "`company-mode' back-end using `completion-at-point-functions'.