Kill trailing / on directories completion

diff --git a/company-files.el b/company-files.el
index c04985cb58005ac5f289a539179beb2937b2883c..c19d3d6cbd86569d8c0676e009c4152c0fc271be 100644 (file)
--- a/company-files.el
+++ b/company-files.el
@@ -113,6 +113,8 @@ File paths with spaces are only supported inside strings."
     (candidates (company-files--complete arg))
     (location (cons (dired-noselect
                      (file-name-directory (directory-file-name arg))) 1))
     (candidates (company-files--complete arg))
     (location (cons (dired-noselect
                      (file-name-directory (directory-file-name arg))) 1))

+    (post-completion (when (company-files--trailing-slash-p arg)
+                       (delete-char -1)))

     (sorted t)
     (no-cache t)))
 
     (sorted t)
     (no-cache t)))