From e549dce5556c9550eedf220d247764e84b4879b7 Mon Sep 17 00:00:00 2001 From: Artur Malabarba Date: Wed, 3 Dec 2014 19:52:34 +0000 Subject: Slight simplification --- sx-interaction.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/sx-interaction.el b/sx-interaction.el index 64bcc40..89050c3 100644 --- a/sx-interaction.el +++ b/sx-interaction.el @@ -84,9 +84,9 @@ thrown unless NOERROR is non-nil." "Throw a user-error if DATA is an unread question. If it's not a question, or if it is read, return DATA." ;; If we found a question, we may need to check if it's read. - (if (assoc 'title data) - (if (sx-question--read-p data) data - (user-error "Question not yet read. View it before acting on it")) + (if (and (assoc 'title data) + (null (sx-question--read-p data))) + (user-error "Question not yet read. View it before acting on it") data)) (defun sx--maybe-update-display (&optional buffer) -- cgit v1.2.3