[gentoo-commits] proj/company-ebuild:master commit in: /

[Maciej Barć]

commit:     1eae6f34f926d4983b660bc0fe111e293b94718c
Author:     Maciej Barć <xgqt <AT> gentoo <DOT> org>
AuthorDate: Wed Aug 17 15:12:54 2022 +0000
Commit:     Maciej Barć <xgqt <AT> gentoo <DOT> org>
CommitDate: Wed Aug 17 15:16:45 2022 +0000
URL:        
https://gitweb.gentoo.org/proj/company-ebuild.git/commit/?id=1eae6f34

company-ebuild.el: company-ebuild--regenerate-dynamic-keywords-eclasses - 
add-to-list

Signed-off-by: Maciej Barć <xgqt <AT> gentoo.org>

 company-ebuild.el | 32 +++++++++++++-------------------
 1 file changed, 13 insertions(+), 19 deletions(-)

diff --git a/company-ebuild.el b/company-ebuild.el
index 7a1b51a..15224af 100644
--- a/company-ebuild.el
+++ b/company-ebuild.el
@@ -157,25 +157,19 @@ REPO-ROOT is the location from which we start searching 
for Eclass files."
     (when repo-root
       (let ((eclass-files
              (company-ebuild--find-eclass-files repo-root)))
-        (setq company-ebuild--dynamic-keywords-eclasses
-              (apply #'append
-                     (mapcar (lambda (f)
-                               (mapcar (lambda (s)
-                                         (replace-regexp-in-string "\\.eclass"
-                                                                   ""
-                                                                   s))
-                                       (company-ebuild--get-tags f "ECLASS")))
-                             eclass-files)))
-        (setq company-ebuild--dynamic-keywords-variables
-              (apply #'append
-                     (mapcar (lambda (f)
-                               (company-ebuild--get-tags f "ECLASS_VARIABLE"))
-                             eclass-files)))
-        (setq company-ebuild--dynamic-keywords-functions
-              (apply #'append
-                     (mapcar (lambda (f)
-                               (company-ebuild--get-tags f "FUNCTION"))
-                             eclass-files)))))))
+        (mapc
+         (lambda (eclass-file)
+           (mapc (lambda (str)
+                   (add-to-list 'company-ebuild--dynamic-keywords-eclasses
+                                (replace-regexp-in-string "\\.eclass" "" str)))
+                 (company-ebuild--get-tags eclass-file "ECLASS"))
+           (mapc (lambda (str)
+                   (add-to-list 'company-ebuild--dynamic-keywords-variables 
str))
+                 (company-ebuild--get-tags eclass-file "ECLASS_VARIABLE"))
+           (mapc (lambda (str)
+                   (add-to-list 'company-ebuild--dynamic-keywords-functions 
str))
+                 (company-ebuild--get-tags eclass-file "FUNCTION")))
+         eclass-files)))))
 
 (defun company-ebuild--regenerate-dynamic-keywords-use-flags ()
   "Set new content of the ‘company-ebuild--dynamic-keywords-use-flags’ 
variable."