diff options
author | Artur Malabarba <bruce.connor.am@gmail.com> | 2014-11-25 02:56:08 +0000 |
---|---|---|
committer | Artur Malabarba <bruce.connor.am@gmail.com> | 2014-11-25 02:56:08 +0000 |
commit | 6ed2414bddb842b43c1158ca1f1a9c6cefed4175 (patch) | |
tree | e18b624916114a555a88cb4ae6550925c144761c | |
parent | 3afb8561dba9569e15fcea69f59d29fa7a19fec2 (diff) |
Fix voting for comments.
-rw-r--r-- | sx.el | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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)) |