From: Dmitry Gutov <dgutov@yandex.ru>
Date: Sun, 1 Mar 2015 15:13:35 +0000 (+0200)
Subject: company-diag: Include Emacs and Company versions
X-Git-Url: https://code.delx.au/gnu-emacs-elpa/commitdiff_plain/7941f6e8e18b48ce5ff822bd8a5d2af3540ca733

company-diag: Include Emacs and Company versions
---

diff --git a/company.el b/company.el
index a95f7f32e..0652fc3bf 100644
--- a/company.el
+++ b/company.el
@@ -2154,6 +2154,11 @@ If SHOW-VERSION is non-nil, show the version in the echo area."
     (pop-to-buffer (get-buffer-create "*company-diag*"))
     (setq buffer-read-only nil)
     (erase-buffer)
+    (insert (format "Emacs %s (%s) of %s on %s"
+                    emacs-version system-configuration
+                    (format-time-string "%Y-%m-%d" emacs-build-time)
+                    emacs-build-system))
+    (insert "\nCompany " (company-version) "\n\n")
     (insert "company-backends: " (pp-to-string bb))
     (insert "\n")
     (insert "Used backend: " (pp-to-string backend))