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

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

@ -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