diff options
author | Artur Malabarba <bruce.connor.am@gmail.com> | 2014-12-20 16:19:35 -0200 |
---|---|---|
committer | Artur Malabarba <bruce.connor.am@gmail.com> | 2014-12-20 16:19:35 -0200 |
commit | 29946095d687a44224e30b21198b2c872233e8d3 (patch) | |
tree | a31df424134e91553bf56e6e8525726484e00487 | |
parent | 139c4d81545cd8428de7864294c754fbe8f3267e (diff) |
Hotfix, don't barf on links we don't understand.
These are usually not links. See the end of http://emacs.stackexchange.com/q/3727/50
-rw-r--r-- | sx-question-print.el | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/sx-question-print.el b/sx-question-print.el index 2f07132..fe1e2b0 100644 --- a/sx-question-print.el +++ b/sx-question-print.el @@ -384,10 +384,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. |