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

Reply via email to