company-diag: Include Emacs and Company versions

diff --git a/company.el b/company.el
index a95f7f32ed4d9370a65be818fd36dd9715295b5f..0652fc3bf758783483868305b7ab89b0d133a20f 100644 (file)
--- 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))