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

Fix :company-backend

Browse source
This commit is contained in:
Henrik Lissner 2017-06-24 16:43:39 +02:00
parent 313fa06400
commit 18ad96d156
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 8 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

16
modules/completion/company/config.el
View file

@ -3,14 +3,14 @@
(def-setting! :company-backend (modes backends) (def-setting! :company-backend (modes backends)
"Register company BACKENDS to MODES." "Register company BACKENDS to MODES."
(let ((backends (doom-enlist (doom-unquote backends)))) (let ((backends (doom-enlist (doom-unquote backends))))
(dolist (mode (doom-enlist (doom-unquote modes))) `(progn
(let ((def-name (intern (format "doom--init-company-%s" mode)))) ,@(cl-loop for mode in (doom-enlist (doom-unquote modes))
`(prog1 for def-name = (intern (format "doom--init-company-%s" mode))
(defun ,def-name () collect `(defun ,def-name ()
(when (eq major-mode ',mode) (when (eq major-mode ',mode)
(require 'company) (require 'company)
(cl-pushnew ',backends company-backends :test #'equal))) (cl-pushnew ',backends company-backends :test #'equal)))
(add-hook! ,mode #',def-name)))))) collect `(add-hook! ,mode #',def-name)))))
;; ;;