branch: elpa/llama
commit f21fe0c53bdfcef1d554f590ab673acd4677d34a
Author: Jonas Bernoulli <jo...@bernoul.li>
Commit: Jonas Bernoulli <jo...@bernoul.li>
llama--fontify: Handle nil
---
llama-test.el | 8 ++++++++
llama.el | 1 +
2 files changed, 9 insertions(+)
diff --git a/llama-test.el b/llama-test.el
index 6eed5ca147..7ae87f4d30 100644
--- a/llama-test.el
+++ b/llama-test.el
@@ -106,6 +106,14 @@
%1))))
)
+(ert-deftest llama-test-105-basic-nil nil
+
+ (should (equal (##list (##list %) %1)
+ (lambda (%1)
+ (list (lambda (%) (list %))
+ %1))))
+ )
+
(ert-deftest llama-test-201-unused-implicit-mandatory nil
(should (equal (##list %2)
diff --git a/llama.el b/llama.el
index a1868085b4..0232a24ddb 100644
--- a/llama.el
+++ b/llama.el
@@ -393,6 +393,7 @@ expansion, and the looks of this face should hint at that.")
(defun llama--fontify (expr &optional fnpos backquoted top)
(cond
+ ((null expr) expr)
((eq (car-safe expr) 'quote))
((eq (ignore-errors (bare-symbol (car-safe expr))) 'quote))
((and (memq (car-safe expr) (list (intern "") 'llama)) (not top)))
