awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-01 12:17:25 -05:00
Code Issues Packages Projects Releases 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
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