Re: remove sublist

[Eli Zaretskii]

> From: Emanuel Berg <moasen@zoho.com>
> Date: Thu, 12 Apr 2018 17:10:21 +0200
> 
> Robert L. wrote:
> 
> > (defun remove-these (targets xs)
> >   (if targets
> >     (remove-these (cdr targets) (remove (car targets) xs))
> >     xs))
> >
> > (remove-these '(a e) '(a b e f o a g))
> >  ===>
> > (b f o g)
> 
> (require 'cl-lib)
> (defun drop-sublist (l subl)
>   "Every element of L that isn't also in SUBL."
>   (cl-remove-if (lambda (e) (member e subl)) l) )

The future is here:

  (require 'seq)
  (seq-difference '(a b e f o a g) '(a e))
  => (b f o g)