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

Allow set-company-backend! to unset backends

Browse source 
Passing nil as its second argument will unset previously set backends.
This commit is contained in:
Henrik Lissner 2018-06-17 21:40:32 +02:00
parent 26caea7f2b
commit 97b42c449b
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 14 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -6,15 +6,20 @@
MODES should be one major-mode symbol or a list of them."
(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))))
(let ((fn (intern (format "+company|init-%s" mode)))
(hook (intern (format "%s-hook" mode))))
(cond (backends
(fset fn
(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 hook fn))
(t
(fmakunbound fn)
(remove-hook hook fn))))))
;; FIXME obsolete :company-backend
;;;###autoload