[elpa] master 9476aef 09/23: company-files--directory-files: Don't ignore errors

[Dmitry Gutov]

branch: master
commit 9476aef021dbc4e703a521bcffd8d91234626351
Author: Dmitry Gutov <address@hidden>
Commit: Dmitry Gutov <address@hidden>

    company-files--directory-files: Don't ignore errors
    
    Let's see what happens.
---
 company-files.el |   17 ++++++++---------
 1 file changed, 8 insertions(+), 9 deletions(-)

diff --git a/company-files.el b/company-files.el
index 23c4ec3..4397df9 100644
--- a/company-files.el
+++ b/company-files.el
@@ -39,15 +39,14 @@ The values should use the same format as 
`completion-ignored-extensions'."
   :package-version '(company . "0.9.1"))
 
 (defun company-files--directory-files (dir prefix)
-  (ignore-errors
-    ;; Don't use directory-files. It produces directories without trailing /.
-    (let ((comp (sort (file-name-all-completions prefix dir)
-                      (lambda (s1 s2) (string-lessp (downcase s1) (downcase 
s2))))))
-      (when company-files-exclusions
-        (setq comp (company-files--exclusions-filtered comp)))
-      (if (equal prefix "")
-          (delete "../" (delete "./" comp))
-        comp))))
+  ;; Don't use directory-files. It produces directories without trailing /.
+  (let ((comp (sort (file-name-all-completions prefix dir)
+                    (lambda (s1 s2) (string-lessp (downcase s1) (downcase 
s2))))))
+    (when company-files-exclusions
+      (setq comp (company-files--exclusions-filtered comp)))
+    (if (equal prefix "")
+        (delete "../" (delete "./" comp))
+      comp)))
 
 (defun company-files--exclusions-filtered (completions)
   (let* ((dir-exclusions (cl-delete-if-not #'company-files--trailing-slash-p