emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Refactor set-company-backend!

Browse source
This commit is contained in:
Henrik Lissner 2018-06-16 12:46:57 +02:00
parent b170119d4b
commit 3ad16f660f
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 10 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

7
modules/completion/company/autoload.el
View file

@ -5,9 +5,8 @@
"Prepends BACKENDS to `company-backends' in major MODES. "Prepends BACKENDS to `company-backends' in major MODES.
MODES should be one major-mode symbol or a list of them." MODES should be one major-mode symbol or a list of them."
(cl-loop for mode in modes (dolist (mode (doom-enlist modes))
for def-name = (intern (format "doom--init-company-%s" mode)) (let ((def-name (intern (format "+company--init-%s" mode))))
do
(fset def-name (fset def-name
(lambda () (when (or (eq major-mode mode) (lambda () (when (or (eq major-mode mode)
(and (boundp mode) (symbol-value mode))) (and (boundp mode) (symbol-value mode)))
@ -15,7 +14,7 @@ MODES should be one major-mode symbol or a list of them."
(make-variable-buffer-local 'company-backends) (make-variable-buffer-local 'company-backends)
(dolist (backend backends) (dolist (backend backends)
(cl-pushnew backend company-backends :test #'equal))))) (cl-pushnew backend company-backends :test #'equal)))))
and do (add-hook (intern (format "%s-hook" mode)) def-name))) (add-hook (intern (format "%s-hook" mode)) def-name))))
;; FIXME obsolete :company-backend ;; FIXME obsolete :company-backend
;;;###autoload ;;;###autoload