diff options
| author | Artur Malabarba <bruce.connor.am@gmail.com> | 2014-12-17 12:53:35 -0200 |
|---|---|---|
| committer | Artur Malabarba <bruce.connor.am@gmail.com> | 2014-12-22 10:46:41 -0200 |
| commit | 8142023ef51a90fdb5fe094bd9861308cb39452d (patch) | |
| tree | ec31d3cb72a26ea1a6fa6227236e95b7828c1226 | |
| parent | ad3849d4b4d946bc186473718ccd50953a94c143 (diff) | |
Do comment validity checking on edits too
| -rw-r--r-- | sx-interaction.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/sx-interaction.el b/sx-interaction.el index 9af9ac6..2768c8d 100644 --- a/sx-interaction.el +++ b/sx-interaction.el @@ -320,7 +320,9 @@ from context at point." (let ((buffer (current-buffer))) (pop-to-buffer (sx-compose-create - .site data nil + .site data + ;; Before send hook + (when .comment_id (list #'sx--comment-valid-p)) ;; After send functions (list (lambda (_ res) (sx--copy-data (elt res 0) data) |