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

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