Fix :company-backend

doomemacs · Jun 24, 2017 · 18ad96d · 18ad96d
1 parent 313fa06
commit 18ad96d
Showing 1 changed file with 8 additions and 8 deletions.
diff --git a/modules/completion/company/config.el b/modules/completion/company/config.el
@@ -3,14 +3,14 @@
 (def-setting! :company-backend (modes backends)
   "Register company BACKENDS to MODES."
   (let ((backends (doom-enlist (doom-unquote backends))))
-    (dolist (mode (doom-enlist (doom-unquote modes)))
-      (let ((def-name (intern (format "doom--init-company-%s" mode))))
-        `(prog1
-             (defun ,def-name ()
-               (when (eq major-mode ',mode)
-                 (require 'company)
-                 (cl-pushnew ',backends company-backends :test #'equal)))
-           (add-hook! ,mode #',def-name))))))
+    `(progn
+       ,@(cl-loop for mode in (doom-enlist (doom-unquote modes))
+                  for def-name = (intern (format "doom--init-company-%s" mode))
+                  collect `(defun ,def-name ()
+                             (when (eq major-mode ',mode)
+                               (require 'company)
+                               (cl-pushnew ',backends company-backends :test #'equal)))
+                  collect `(add-hook! ,mode #',def-name)))))
 
 
 ;;