X-Git-Url: https://code.delx.au/gnu-emacs-elpa/blobdiff_plain/a53911c5253edd011950a5a988f4c2f68bd408e4..a619a93069dab79b12d695fd4e8b043aa82d96ca:/company-files.el

diff --git a/company-files.el b/company-files.el
index c04985cb5..c19d3d6cb 100644
--- 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))
+    (post-completion (when (company-files--trailing-slash-p arg)
+                       (delete-char -1)))
     (sorted t)
     (no-cache t)))