From 6ed2414bddb842b43c1158ca1f1a9c6cefed4175 Mon Sep 17 00:00:00 2001 From: Artur Malabarba Date: Tue, 25 Nov 2014 02:56:08 +0000 Subject: Fix voting for comments. --- sx.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/sx.el b/sx.el index f3af6d0..917ad5b 100644 --- a/sx.el +++ b/sx.el @@ -233,7 +233,7 @@ guessed from context at point." (interactive (list (sx--data-here))) (let ((result (sx-assoc-let data - (sx-set-vote data "upvote" (eq .upvoted :json-false))))) + (sx-set-vote data "upvote" (null (eq .upvoted t)))))) (when (> (length result) 0) (sx--copy-data (elt result 0) data))) (sx--maybe-update-display)) @@ -245,7 +245,7 @@ from context at point." (interactive (list (sx--data-here))) (let ((result (sx-assoc-let data - (sx-set-vote data "downvote" (eq .downvoted :json-false))))) + (sx-set-vote data "downvote" (null (eq .downvoted t)))))) (when (> (length result) 0) (sx--copy-data (elt result 0) data))) (sx--maybe-update-display)) -- cgit v1.2.3