diff options
author | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2016-06-05 19:58:51 +0200 |
---|---|---|
committer | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2016-06-05 19:58:51 +0200 |
commit | 9ddde0d77deca8e47422fcd9efb962b531e24fe9 (patch) | |
tree | bf0cbaf98d1acbfb519c9e53f118e753ee0302f2 /helm-lib.el | |
parent | 8ee40211361cce709d5b3f1ce3cef33f0f3f02ad (diff) |
Make helm-boring-directory-p more readable.
* helm-lib.el (helm-boring-directory-p): Do it.
Diffstat (limited to 'helm-lib.el')
-rw-r--r-- | helm-lib.el | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/helm-lib.el b/helm-lib.el index f79c5c99..1c64b1eb 100644 --- a/helm-lib.el +++ b/helm-lib.el @@ -335,13 +335,14 @@ Default is `eq'." (defun helm-boring-directory-p (directory black-list) "Check if one regexp in BLACK-LIST match DIRECTORY." - (helm-awhile directory - (setq directory (helm-basedir (directory-file-name - (expand-file-name it)))) + (helm-awhile (helm-basedir (directory-file-name + (expand-file-name directory))) (when (string= it "/") (cl-return nil)) (when (cl-loop for r in black-list - thereis (string-match-p r (directory-file-name it))) - (cl-return t)))) + thereis (string-match-p + r (directory-file-name directory))) + (cl-return t)) + (setq directory it))) (defun helm-shadow-entries (seq regexp-list) "Put shadow property on entries in SEQ matching a regexp in REGEXP-LIST." |