[elpa] master abe46da 037/173: company-files: Skip disconnected remote completions for "/xyz"

[Dmitry Gutov]

branch: master
commit abe46daf96fd4fb105f519509693b6a55b02dc70
Author: Dmitry Gutov <address@hidden>
Commit: Dmitry Gutov <address@hidden>

    company-files: Skip disconnected remote completions for "/xyz"
    
    Fixes #347
---
 company-files.el |   14 +++++++++-----
 1 file changed, 9 insertions(+), 5 deletions(-)

diff --git a/company-files.el b/company-files.el
index e44b4f5..200f9cf 100644
--- a/company-files.el
+++ b/company-files.el
@@ -50,14 +50,17 @@
     (and (cl-dolist (regexp company-files--regexps)
            (when (setq file (company-grab-line regexp 1))
              (cl-return file)))
-         (or (not (file-remote-p file))
-             (file-remote-p file nil t))
+         (company-files--connected-p file)
          (setq dir (file-name-directory file))
          (not (string-match "//" dir))
          (file-exists-p dir)
          (file-name-all-completions (file-name-nondirectory file) dir)
          file)))
 
+(defun company-files--connected-p (file)
+  (or (not (file-remote-p file))
+      (file-remote-p file nil t)))
+
 (defvar company-files--completion-cache nil)
 
 (defun company-files--complete (prefix)
@@ -71,9 +74,10 @@
     (unless (company-file--keys-match-p key (car 
company-files--completion-cache))
       (dolist (file (company-files--directory-files dir file))
         (setq file (concat dir file))
-        (push file candidates)
-        (when (file-directory-p file)
-          (push file directories)))
+        (when (company-files--connected-p file)
+          (push file candidates)
+          (when (file-directory-p file)
+            (push file directories))))
       (dolist (directory (reverse directories))
         ;; Add one level of children.
         (dolist (child (company-files--directory-files directory ""))