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

Fix :company-backend not overwriting past settings

Browse source 
In case you want to alter a mode's company-backend later or in a private
module.
This commit is contained in:
Henrik Lissner 2017-06-23 13:44:18 +02:00
parent 50f924bcfc
commit c8757b85f7
1 changed files with 9 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -2,16 +2,15 @@
(def-setting! :company-backend (modes backends)
"Register company BACKENDS to MODES."
(let* ((modes (doom-enlist (doom-unquote modes)))
(backends (doom-enlist (doom-unquote backends)))
(def-name (intern (format "doom--init-company-%s"
(mapconcat #'symbol-name modes "-")))))
(let ((backends (doom-enlist (doom-unquote backends))))
(dolist (mode (doom-enlist (doom-unquote modes)))
(let ((def-name (intern (format "doom--init-company-%s" mode))))
`(prog1
(defun ,def-name ()
(when (memq major-mode ',modes)
(when (eq major-mode ',mode)
(require 'company)
(cl-pushnew ',backends company-backends :test #'equal)))
(add-hook! ,modes #',def-name))))
(add-hook! ,mode #',def-name))))))
;;