branch: elpa/llama
commit 55a1caed598804fc4481746cccd115affdf0e449
Author: Jonas Bernoulli <[email protected]>
Commit: Jonas Bernoulli <[email protected]>
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