diff options
| -rw-r--r-- | sx-request.el | 1 | ||||
| -rw-r--r-- | sx.el | 2 |
2 files changed, 2 insertions, 1 deletions
diff --git a/sx-request.el b/sx-request.el index 0d618d5..6f95687 100644 --- a/sx-request.el +++ b/sx-request.el @@ -191,6 +191,7 @@ the main content of the response is returned." ;; RESPONSE to 'corrupt or something (response (with-demoted-errors "`json' error: %S" (json-read-from-string data)))) + (kill-buffer response-buffer) (when (and (not response) (string-equal data "{}")) (sx-message "Unable to parse response: %S" response) (error "Response could not be read by `json-read-from-string'")) @@ -90,7 +90,7 @@ with a `link' property)." (defun sx--link-to-data (link) "Convert string LINK into data that can be displayed." - (let ((result (list (cons 'site (sx--site link))))) + (let ((result (list (cons 'site_par (sx--site link))))) ;; Try to strip a question or answer ID (when (or ;; Answer |