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

Append default backends to buffer-local backends

Browse source
This commit is contained in:
Henrik Lissner 2018-07-30 12:54:59 +02:00
parent e94f1f39f4
commit 533cb13a02
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
3 changed files with 28 additions and 18 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -55,14 +55,16 @@ To have BACKENDS apply to any mode that is a parent of MODES, set MODES to
;;
(defun +company--backends ()
(or (cl-loop for (mode . rest) in +company-backend-alist
for type = (car rest)
for backends = (cdr rest)
if (or (and (eq type :derived) (derived-mode-p mode)) ; parent modes
(and (eq type :exact) (eq major-mode mode)) ; major modes
(and (boundp mode) (symbol-value mode))) ; minor modes
nconc backends)
(default-value 'company-backends)))
(append (cl-loop for (mode . rest) in +company-backend-alist
for type = (car rest)
for backends = (cdr rest)
if (or (and (eq type :derived) (derived-mode-p mode)) ; parent modes
(and (eq type :exact)
(or (eq major-mode mode) ; major modes
(and (boundp mode)
(symbol-value mode))))) ; minor modes
nconc backends)
(default-value 'company-backends)))
;;