Re: Add/remove an element into/from a cons.

[Tassilo Horn]

Hongyi Zhao <hongyi.zhao@gmail.com> writes:

> (defun my-scratch-init ()
>   (with-current-buffer "*scratch*"
>     (setq-local company-backends (let ((place (assoc 'company-tabnine
> company-backends)))
>                    (setf place (remove 'company-ispell place))))
>     ))

setf returns the new value, so here you are setting company-backends to
the modified alist entry, not the alist itself.  This should work:

--8<---------------cut here---------------start------------->8---
(defun my-scratch-init ()
  (with-current-buffer "*scratch*"
    ;; Ensure it has a local variable.  Not sure if it has by default...
    (make-local-variable 'company-backends)
    (let ((place (assoc 'company-tabnine company-backends)))
      (setf place (remove 'company-ispell place)))))
--8<---------------cut here---------------end--------------->8---

Bye,
Tassilo