From 144db4c35bf902a045b221dae39d5437f7d9fb52 Mon Sep 17 00:00:00 2001 From: Artur Malabarba Date: Sat, 13 Dec 2014 22:02:22 +0000 Subject: sx--ensure-site accepts nil. Fix #150 --- sx.el | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/sx.el b/sx.el index 7dde8a7..fd39419 100644 --- a/sx.el +++ b/sx.el @@ -297,10 +297,11 @@ DATA can also be the link itself." "Add a `site' property to DATA if it doesn't have one. Return DATA. DATA can be a question, answer, comment, or user (or any object with a `link' property)." - (unless (assq 'site data) - (setcdr data (cons (cons 'site (sx--site data)) - (cdr data)))) - data) + (when data + (unless (assq 'site data) + (setcdr data (cons (cons 'site (sx--site data)) + (cdr data)))) + data)) (defmacro sx-assoc-let (alist &rest body) "Identical to `let-alist', except `.site' has a special meaning. -- cgit v1.2.3