Come aggiungere più elementi a un elenco in Emacs lisp

Question

In Emacs lisp c'è add-to-list per aggiungere un singolo elemento a un elenco (se non esiste già).

Invece di uno, voglio aggiungere più elementi. Inoltre, non voglio filtrare gli elementi duplicati ma aggiungerli comunque alla lista.

Attualmente, ho implementato la seguente funzione:

(defun append-to-list (list-var elements) 
    "Append ELEMENTS to the end of LIST-VAR. 

The return value is the new value of LIST-VAR." 
    (set list-var (append (symbol-value list-var) elements))) 

La funzione fa quello che voglio, ma mi chiedevo se qualcosa di simile (o superiore) esiste già in Emacs Lisp. Non voglio reinventare la ruota.

Aggiornamento 1: Stefan sottolinea che questo codice non funziona con lo scope lessicale. C'è un modo per farlo funzionare?

Aggiornamento 2: In precedenza ho pensato che il filtro duplicato sarebbe andato bene ma non lo è. Ho bisogno dei duplicati.

Answer 1

Questo sarebbe quasi equivalente ma più veloce, in quanto non fa una copia della lista originale prima di accodare i nuovi elementi.

(defun append-to-list (list-var elements) 
    "Append ELEMENTS to the end of LIST-VAR. 

The return value is the new value of LIST-VAR." 
    (unless (consp elements) 
    (error "ELEMENTS must be a list")) 
    (let ((list (symbol-value list-var))) 
    (if list 
     (setcdr (last list) elements) 
     (set list-var elements))) 
    (symbol-value list-var)) 

append non copia l'elemento finale, ma utilizza direttamente come la coda della nuova lista, in modo che parte è identica. Tuttavia, se esistono ulteriori riferimenti all'oggetto list originale (o parte di esso), allora lo sarà una differenza funzionale tra la copia di quell'elenco (tramite append) e l'estensione (con setcdr). Quale di quei due risultati che vuoi veramente dipende da te, ovviamente.

Answer 2

Se non si cura di ordinazione:

(setf var (cl-list* elt1 elt2 elt3 var)) 

L'ultimo argomento list* diventa la coda della lista risultante.

Answer 3

Ho il seguente nel mio file di init che consente di aggiungere più elementi. Non so quanto sia efficiente passare in rassegna gli elementi da aggiungere ma impedisce gli elementi duplicati.

(defun jlp/add-to-list-multiple (list to-add) 
    "Adds multiple items to LIST. 
Allows for adding a sequence of items to the same list, rather 
than having to call `add-to-list' multiple times." 
    (interactive) 
    (dolist (item to-add) 
    (add-to-list list item)))