From: Dmitry Gutov <dgutov@yandex.ru>
Date: Sun, 28 Sep 2014 16:11:19 +0000 (+0400)
Subject: Update docstring, change words, bump copyright year
X-Git-Url: https://code.delx.au/gnu-emacs-elpa/commitdiff_plain/63fc1436dbcbd7b3f1c285076bac51be3a90da6e

Update docstring, change words, bump copyright year
---

diff --git a/company-files.el b/company-files.el
index c8fba51cc..cd4054742 100644
--- a/company-files.el
+++ b/company-files.el
@@ -1,6 +1,6 @@
-;;; company-files.el --- company-mode completion back-end for file names
+;;; company-files.el --- company-mode completion back-end for file paths
 
-;; Copyright (C) 2009-2011, 2013  Free Software Foundation, Inc.
+;; Copyright (C) 2009-2011, 2014  Free Software Foundation, Inc.
 
 ;; Author: Nikolaj Schumacher
 
@@ -35,10 +35,10 @@
       (file-name-all-completions prefix dir))))
 
 (defvar company-files-regexps
-  (let* ((begin (if (eq system-type 'windows-nt)
-                    "[a-zA-Z]:/"
-                  "/"))
-         (begin (concat "\\(?:\\.\\{1,2\\}/\\|~/\\|" begin "\\)")))
+  (let* ((root (if (eq system-type 'windows-nt)
+                   "[a-zA-Z]:/"
+                 "/"))
+         (begin (concat "\\(?:\\.\\{1,2\\}/\\|~/\\|" root "\\)")))
     (list (concat "\"\\(" begin "[^\"\n]*\\)")
           (concat "\'\\(" begin "[^\'\n]*\\)")
           (concat "\\(?:[ \t]\\|^\\)\\(" begin "[^ \t\n]*\\)"))))
@@ -81,8 +81,8 @@
 ;;;###autoload
 (defun company-files (command &optional arg &rest ignored)
   "`company-mode' completion back-end existing file names.
-Completions are triggered when the text inside quotes starts with any of 
-the following: ./, ../, ~/, or root drive"
+Completions works for proper absolute and relative files paths.
+File paths with spaces are only supported inside strings."
   (interactive (list 'interactive))
   (cl-case command
     (interactive (company-begin-backend 'company-files))