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.el13
1 files changed, 7 insertions, 6 deletions
diff --git a/sx-question-print.el b/sx-question-print.el
index b58a84a..07378e8 100644
--- a/sx-question-print.el
+++ b/sx-question-print.el
@@ -286,11 +286,11 @@ The comment is indented, filled, and then printed according to
(sx--wrap-in-overlay
(list 'sx--data-here comment-data)
(sx-assoc-let comment-data
- (when (> .score 0)
+ (when (and (numberp .score) (> .score 0))
(insert (number-to-string .score)
(if (eq .upvoted t) "^" "")
" "))
- (insert
+ (insert
(format
sx-question-mode-comments-format
(sx-question-mode--propertize-display-name .owner)
@@ -381,10 +381,11 @@ E.g.:
(match-string-no-properties 3)
text)))
(full-text (match-string-no-properties 0)))
- (replace-match "")
- (sx-question-mode--insert-link
- (if sx-question-mode-pretty-links text full-text)
- url)))))
+ (when (stringp url)
+ (replace-match "")
+ (sx-question-mode--insert-link
+ (if sx-question-mode-pretty-links text full-text)
+ url))))))
(defun sx-question-mode--insert-link (text url)
"Return a link propertized version of string TEXT.