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-22 10:46:41 -0200 |
| commit | 3c0b678c02b20526410b2d4b95d94d94ccc35168 (patch) | |
| tree | c95c1e4fb0596bea2e5668148418125b13a98f6c | |
| parent | 7902a1e1f1b40f04aeb728b0b39fc73bf54b160f (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. |