Hide html comments

1 files changed, 9 insertions, 1 deletions

diff --git a/sx-question-print.el b/sx-question-print.el
index ed13b71..096586a 100644
--- a/sx-question-print.el
+++ b/sx-question-print.el
@@ -759,7 +759,15 @@ move point, don't create the code-block button."
   "If there's an html comment ahead, skip it and return t."
   ;; @TODO: Handle the comment.
   ;; "Handling means to store any relevant metadata it might be holding."
-  (markdown-match-comments (line-end-position)))
+  (let ((end (save-excursion
+               (when (markdown-match-comments (line-end-position))
+                 (point)))))
+    (when end
+      (delete-region (point) end)
+      (skip-chars-backward "[:blank:]")
+      (when (looking-at "^[:blank:]*\n")
+        (replace-match ""))
+      t)))
 
 (defun sx-question-mode--skip-headline ()
   "If there's a headline ahead, skip it and return non-nil."