[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master 9476aef 09/23: company-files--directory-files: Don't ignor
From: |
Dmitry Gutov |
Subject: |
[elpa] master 9476aef 09/23: company-files--directory-files: Don't ignore errors |
Date: |
Fri, 11 Nov 2016 22:21:41 +0000 (UTC) |
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
- [elpa] master d3032e2 06/23: company-next-page: Wrap only when at the last item, (continued)
- [elpa] master d3032e2 06/23: company-next-page: Wrap only when at the last item, Dmitry Gutov, 2016/11/11
- [elpa] master 63d4332 07/23: Reword, Dmitry Gutov, 2016/11/11
- [elpa] master e53f150 05/23: Mention the previous change, too, Dmitry Gutov, 2016/11/11
- [elpa] master 8e321eb 03/23: Auto-adjust company-idle-delay when it's zero, Dmitry Gutov, 2016/11/11
- [elpa] master 3d369e1 11/23: Don't convert user-error signals to error (#560), Dmitry Gutov, 2016/11/11
- [elpa] master 86c1f60 10/23: company-dabbrev-code: Look inside comments and strings when appropriate, Dmitry Gutov, 2016/11/11
- [elpa] master ac2606a 18/23: Add JSX modes to javascript aliases, Dmitry Gutov, 2016/11/11
- [elpa] master fc39277 15/23: Add keywords for rust-mode to company-keywords., Dmitry Gutov, 2016/11/11
- [elpa] master f78f9c1 21/23: Initialize grouped backends on the fly as well, Dmitry Gutov, 2016/11/11
- [elpa] master e6689ea 12/23: company-files--directory-files: Swallow file-error, Dmitry Gutov, 2016/11/11
- [elpa] master 9476aef 09/23: company-files--directory-files: Don't ignore errors,
Dmitry Gutov <=
- [elpa] master c353c71 14/23: global goes through all the tag files listed in GTAGSLIBPATH, Dmitry Gutov, 2016/11/11
- [elpa] master f2327bc 19/23: Merge pull request #575 from Wilfred/patch-1, Dmitry Gutov, 2016/11/11
- [elpa] master e077caf 22/23: Release 0.9.1, Dmitry Gutov, 2016/11/11
- [elpa] master ba87881 16/23: Merge pull request #572 from Wilfred/rust_keywords, Dmitry Gutov, 2016/11/11
- [elpa] master 6025006 08/23: Add company-files-exclusions, Dmitry Gutov, 2016/11/11
- [elpa] master d8ca520 13/23: Improve search visualization, Dmitry Gutov, 2016/11/11
- [elpa] master 1028f38 20/23: company-indent-or-complete-common: Blacklist some indentation functions, Dmitry Gutov, 2016/11/11
- [elpa] master 85bd83e 23/23: Merge commit 'e077caf1957f1846fae29aa84a021234c43be96f', Dmitry Gutov, 2016/11/11
- [elpa] master 917936c 17/23: Fix keyword ordering, Dmitry Gutov, 2016/11/11