[elpa] externals/cape 6ddd50e7b7 116/146: Improve prefix setting of file capf

[ELPA Syncer]

branch: externals/cape
commit 6ddd50e7b756c28a0d49b38c1fe2e1d17aa309bb
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    Improve prefix setting of file capf
---
 README.org | 2 +-
 cape.el    | 3 ++-
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/README.org b/README.org
index 1866b23bdb..d98dcfab4d 100644
--- a/README.org
+++ b/README.org
@@ -41,7 +41,7 @@ backends into Capfs and merge multiple Capfs into a 
Super-Capf!
 * ~cape-ispell~: Complete word from Ispell dictionary
 * ~cape-dict~: Complete word from dictionary file
 * ~cape-line~: Complete entire line from file
-* ~cape-tex~: Complete unicode char from TeX command, e.g. ~\hbar~,
+* ~cape-tex~: Complete unicode char from TeX command, e.g. ~\hbar~.
 * ~cape-sgml~: Complete unicode char from Sgml entity, e.g., ~&alpha~.
 
 * Configuration
diff --git a/cape.el b/cape.el
index 67e6fefcc5..ebedf8b1d5 100644
--- a/cape.el
+++ b/cape.el
@@ -412,7 +412,8 @@ If INTERACTIVE is nil the function acts like a capf."
       (when (or (not cape-file-directory-must-exist)
                 (and (string-match-p "/" file) (file-exists-p 
(file-name-directory file))))
         `(,(car bounds) ,(cdr bounds) ,#'read-file-name-internal
-          :company-prefix-length ,(and (not (equal file "/")) (string-suffix-p 
"/" file))
+          ,@(and (not (equal file "/")) (string-suffix-p "/" file)
+                 '(:company-prefix-length t))
           :exclusive no ,@cape--file-properties)))))
 
 ;;;;; cape-symbol