branch: elpa/llama commit 55a1caed598804fc4481746cccd115affdf0e449 Author: Jonas Bernoulli <jo...@bernoul.li> Commit: Jonas Bernoulli <jo...@bernoul.li>
llama--collect: Handle dotted lists --- llama.el | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/llama.el b/llama.el index 505ac754d8..a0c7549652 100644 --- a/llama.el +++ b/llama.el @@ -154,8 +154,14 @@ It also looks a bit like #\\='function." (error "`%s' and `%s' are mutually exclusive" data (aref args 1))) (aset args pos data))))) ((eq (car-safe data) '##)) - ((or (listp data) - (vectorp data)) + ((listp data) + (while (consp (cdr data)) + (llama--collect (car data) args) + (setq data (cdr data))) + (when data + (llama--collect (car data) args) + (llama--collect (cdr data) args))) + ((vectorp data) (mapc (lambda (elt) (llama--collect elt args)) data)))) ;;; Advices