[elpa] master 1f56bec 36/38: company-diag: Print out completion-at-point-functions too

[Dmitry Gutov]

branch: master
commit 1f56bec0ba7ce336eb8661b4d34e4b024d7dd04c
Author: Dmitry Gutov <dgutov@yandex.ru>
Commit: Dmitry Gutov <dgutov@yandex.ru>

    company-diag: Print out completion-at-point-functions too
---
 company.el | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/company.el b/company.el
index c12357f..d1f17fe 100644
--- a/company.el
+++ b/company.el
@@ -2460,11 +2460,16 @@ If SHOW-VERSION is non-nil, show the version in the 
echo area."
     (insert "\n")
     (insert "Used backend: " (pp-to-string backend))
     (insert "\n")
+    (when (if (listp backend)
+              (memq 'company-capf backend)
+            (eq backend 'company-capf))
+      (insert "Value of c-a-p-f: "
+              (pp-to-string completion-at-point-functions)))
     (insert "Major mode: " mode)
     (insert "\n")
     (insert "Prefix: " (pp-to-string prefix))
     (insert "\n")
-    (insert (message  "Completions:"))
+    (insert "Completions:")
     (unless cc (insert " none"))
     (if (eq annotations 'error)
         (insert "(error fetching)")