emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] 10/30: Update docstring, change words, bump copyright year


From: Dmitry Gutov
Subject: [elpa] 10/30: Update docstring, change words, bump copyright year
Date: Tue, 14 Oct 2014 22:22:47 +0000

dgutov pushed a commit to branch master
in repository elpa.

commit 63fc1436dbcbd7b3f1c285076bac51be3a90da6e
Author: Dmitry Gutov <address@hidden>
Date:   Sun Sep 28 20:11:19 2014 +0400

    Update docstring, change words, bump copyright year
---
 company-files.el |   16 ++++++++--------
 1 files changed, 8 insertions(+), 8 deletions(-)

diff --git a/company-files.el b/company-files.el
index c8fba51..cd40547 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))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]