aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorArtur Malabarba <bruce.connor.am@gmail.com>2014-11-25 02:56:08 +0000
committerArtur Malabarba <bruce.connor.am@gmail.com>2014-11-25 02:56:08 +0000
commit6ed2414bddb842b43c1158ca1f1a9c6cefed4175 (patch)
treee18b624916114a555a88cb4ae6550925c144761c
parent3afb8561dba9569e15fcea69f59d29fa7a19fec2 (diff)
Fix voting for comments.
-rw-r--r--sx.el4
1 files 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))