awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-03 12:27:26 -05:00
Code Issues Packages Projects Releases 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

10
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 ()
(require 'company) (when (memq major-mode ',modes)
(setq-local company-backends (append '((,@backends)) company-backends))) (require 'company)
(unless (member ',backends company-backends)
(setq-local company-backends (append '((,@backends)) company-backends)))))
(add-hook! ,modes #',def-name)))) (add-hook! ,modes #',def-name))))