From 18ad96d15600017855591375f1b71b4e77774b1c Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Sat, 24 Jun 2017 16:43:39 +0200 Subject: [PATCH] Fix :company-backend --- modules/completion/company/config.el | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/modules/completion/company/config.el b/modules/completion/company/config.el index 27539e25b..5e1237e1b 100644 --- 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))))) ;;