fix(completion/copilot): resolve startup error in Emacs 30.x

Use of the deprecated position function seems to raise a error in
Emacs 30.x. Hence use the newer cl-position function which replaced it.
This commit is contained in:
2022-12-01 21:15:21 +00:00
parent c53d05108f
commit 3b59f17a99

View File

@@ -61,8 +61,9 @@
(with-eval-after-load 'company
;; Use company popup even when there's only one result
(when (member 'company-preview-if-just-one-frontend company-frontends)
(require 'cl-seq)
(delq 'company-preview-if-just-one-frontend company-frontends)
(setf (nth (position 'company-pseudo-tooltip-unless-just-one-frontend
(setf (nth (cl-position 'company-pseudo-tooltip-unless-just-one-frontend
company-frontends)
company-frontends)
'company-pseudo-tooltip-frontend))))