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

[Hongyi Zhao <hongyi.zhao@gmail.com>]

On Tue, Oct 26, 2021 at 2:21 PM Tassilo Horn <tsdh@gnu.org> wrote:
>
> 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...

The default value is set this way, as I've posted:

(setq company-backends '((company-tabnine :separate company-dabbrev
company-keywords company-files company-ispell company-capf)))

>     (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