diff options
| author | Artur Malabarba <bruce.connor.am@gmail.com> | 2014-12-03 19:52:34 +0000 |
|---|---|---|
| committer | Artur Malabarba <bruce.connor.am@gmail.com> | 2014-12-03 19:52:34 +0000 |
| commit | e549dce5556c9550eedf220d247764e84b4879b7 (patch) | |
| tree | ee91ebbecb9450a880e3164dc731f7893178adce | |
| parent | 665668a3fcf6122837bca8845c98cf77872e18b9 (diff) | |
Slight simplification
| -rw-r--r-- | sx-interaction.el | 6 |
1 files 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) |