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

Don't let derived modes inherit company backends

Browse source
This commit is contained in:
Henrik Lissner 2017-05-23 21:19:15 +02:00
parent 82efbbd3fb
commit 99bf1c04fb
1 changed files with 6 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -8,10 +8,12 @@
(mapconcat #'identity (mapcar #'symbol-name modes) "-")))) (mapconcat #'identity (mapcar #'symbol-name modes) "-"))))
(quoted (eq (car-safe backends) 'quote))) (quoted (eq (car-safe backends) 'quote)))
;; TODO more type checks ;; TODO more type checks
`(progn `(prog1
(defun ,def-name () (defun ,def-name ()
(when (memq major-mode ',modes)
(require 'company) (require 'company)
(setq-local company-backends (append '((,@backends)) company-backends))) (unless (member ',backends company-backends)
(setq-local company-backends (append '((,@backends)) company-backends)))))
(add-hook! ,modes #',def-name)))) (add-hook! ,modes #',def-name))))