company-files: Skip disconnected remote completions for "/xyz"

[gnu-emacs-elpa] / company.el

diff --git a/company.el b/company.el
index 750850b0f79f2c1367bb55ed38fdcb41061fd0c4..91637499031f31246daf31945b9b65566d340f3a 100644 (file)
--- a/company.el
+++ b/company.el
@@ -2141,6 +2141,7 @@ Example: \(company-begin-with '\(\"foo\" \"foobar\" \"foobarbaz\"\)\)"
 If SHOW-VERSION is non-nil, show the version in the echo area."
   (interactive (list t))
   (with-temp-buffer
+    (require 'find-func)
     (insert-file-contents (find-library-name "company"))
     (require 'lisp-mnt)
     (if show-version
@@ -2148,8 +2149,8 @@ If SHOW-VERSION is non-nil, show the version in the echo area."
       (lm-version))))
 
 (defun company-diag ()
-  (interactive)
   "Pop a buffer with information about completions at point."
+  (interactive)
   (let* ((bb company-backends)
          backend
          (prefix (cl-loop for b in bb