From 303356daec48d7c7ea25541439cbb79cbfa281ff Mon Sep 17 00:00:00 2001 From: Maciej Barć Date: Wed, 17 Aug 2022 17:01:59 +0200 Subject: company-ebuild.el: company-ebuild--find-eclass-files - remove redundant check MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Signed-off-by: Maciej Barć --- company-ebuild.el | 12 +++++------- 1 file changed, 5 insertions(+), 7 deletions(-) diff --git a/company-ebuild.el b/company-ebuild.el index 9c857e2..7a1b51a 100644 --- a/company-ebuild.el +++ b/company-ebuild.el @@ -142,15 +142,13 @@ FILE-PATH is the location from which we start searching for repository root." (file-exists-p file-path) (locate-dominating-file file-path "profiles/repo_name"))) -(defun company-ebuild--find-eclass-files (file-path) +(defun company-ebuild--find-eclass-files (repo-root) "Return found Eclass files. -FILE-PATH is the location from which we start searching for Eclass files." - (let ((repo-root - (company-ebuild--find-repo-root file-path))) - (and repo-root - (directory-files - (expand-file-name "eclass" repo-root) t ".*\\.eclass" t)))) +REPO-ROOT is the location from which we start searching for Eclass files." + (and repo-root + (directory-files + (expand-file-name "eclass" repo-root) t ".*\\.eclass" t))) (defun company-ebuild--regenerate-dynamic-keywords-eclasses () "Set new content of the ‘company-ebuild--dynamic-keywords’ Eclass variables." -- cgit v1.2.3-65-gdbad