aboutsummaryrefslogtreecommitdiff
path: root/sx-question-print.el
diff options
context:
space:
mode:
Diffstat (limited to 'sx-question-print.el')
-rw-r--r--sx-question-print.el7
1 files changed, 6 insertions, 1 deletions
diff --git a/sx-question-print.el b/sx-question-print.el
index e76e006..924608b 100644
--- a/sx-question-print.el
+++ b/sx-question-print.el
@@ -410,6 +410,9 @@ Image links are downloaded and displayed, if
"Return a link propertized version of TEXT-OR-IMAGE.
URL is used as 'help-echo and 'url properties."
(let ((imagep (not (stringp text-or-image))))
+ ;; Images need to be at the start of a line.
+ (when (and imagep (not (looking-at-p "^")))
+ (insert "\n"))
(apply #'insert-text-button
(if imagep " " text-or-image)
;; Mouse-over
@@ -423,7 +426,9 @@ URL is used as 'help-echo and 'url properties."
:type 'sx-button-link
;; The last argument of `apply' is a list.
(when imagep
- `(face default display ,text-or-image)))))
+ `(face default display ,text-or-image)))
+ ;; Images need to be at the end of a line too.
+ (insert "\n")))
(defun sx-question-mode-find-reference (id &optional fallback-id)
"Find url identified by reference ID in current buffer.