auto-completion: fix add-company-backends macro
We must always use spacemacs/mplist-get on an modified plist, mixing both spacemacs/mplist-get and plist-get leads to undefined behavior as soon as a keyword as multiple keywords.
This commit is contained in:
parent
0d800bdbfa
commit
a698c8ba58
|
@ -69,12 +69,12 @@ Available PROPS:
|
||||||
(let* ((backends (spacemacs/mplist-get props :backends))
|
(let* ((backends (spacemacs/mplist-get props :backends))
|
||||||
(modes (spacemacs/mplist-get props :modes))
|
(modes (spacemacs/mplist-get props :modes))
|
||||||
(variables (spacemacs/mplist-get props :variables))
|
(variables (spacemacs/mplist-get props :variables))
|
||||||
(from (plist-get props :from))
|
(from (car (spacemacs/mplist-get props :from)))
|
||||||
(hooks (if (memq :append-hooks props)
|
(hooks (if (memq :append-hooks props)
|
||||||
(plist-get props :append-hooks)
|
(car (spacemacs/mplist-get props :append-hooks))
|
||||||
t))
|
t))
|
||||||
(call-hooks (when (memq :call-hooks props)
|
(call-hooks (when (memq :call-hooks props)
|
||||||
(plist-get props :call-hooks)))
|
(car (spacemacs/mplist-get props :call-hooks))))
|
||||||
(result '(progn)))
|
(result '(progn)))
|
||||||
(dolist (mode modes)
|
(dolist (mode modes)
|
||||||
(let ((backends-var-name (intern (format "company-backends-%S" mode)))
|
(let ((backends-var-name (intern (format "company-backends-%S" mode)))
|
||||||
|
|
Loading…
Reference in New Issue