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-17 12:53:35 -0200 |
| commit | 34753b9cb10beaa529f9f56cbc5bea3d11960ea3 (patch) | |
| tree | 93a087177a279243d37b7ca765e6eeaa11ac8237 | |
| parent | cd28aeb50a49a625047f9a3d7eb20694955f87aa (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 8aa82a2..c6f2639 100644 --- a/sx-interaction.el +++ b/sx-interaction.el @@ -302,7 +302,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) |