From 3ad16f660fbbbd918ae06df2166740ef30db6d9e Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Sat, 16 Jun 2018 12:46:57 +0200 Subject: [PATCH] Refactor set-company-backend! --- modules/completion/company/autoload.el | 21 ++++++++++----------- 1 file changed, 10 insertions(+), 11 deletions(-) diff --git a/modules/completion/company/autoload.el b/modules/completion/company/autoload.el index 17809e849..393761988 100644 --- a/modules/completion/company/autoload.el +++ b/modules/completion/company/autoload.el @@ -5,17 +5,16 @@ "Prepends BACKENDS to `company-backends' in major MODES. MODES should be one major-mode symbol or a list of them." - (cl-loop for mode in modes - for def-name = (intern (format "doom--init-company-%s" mode)) - do - (fset def-name - (lambda () (when (or (eq major-mode mode) - (and (boundp mode) (symbol-value mode))) - (require 'company) - (make-variable-buffer-local 'company-backends) - (dolist (backend backends) - (cl-pushnew backend company-backends :test #'equal))))) - and do (add-hook (intern (format "%s-hook" mode)) def-name))) + (dolist (mode (doom-enlist modes)) + (let ((def-name (intern (format "+company--init-%s" mode)))) + (fset def-name + (lambda () (when (or (eq major-mode mode) + (and (boundp mode) (symbol-value mode))) + (require 'company) + (make-variable-buffer-local 'company-backends) + (dolist (backend backends) + (cl-pushnew backend company-backends :test #'equal))))) + (add-hook (intern (format "%s-hook" mode)) def-name)))) ;; FIXME obsolete :company-backend ;;;###autoload