diff options
| -rw-r--r-- | lisp/mastodon-inspect.el | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/lisp/mastodon-inspect.el b/lisp/mastodon-inspect.el index 61cb1e3..b3541e2 100644 --- a/lisp/mastodon-inspect.el +++ b/lisp/mastodon-inspect.el @@ -44,10 +44,11 @@ (defun mastodon-inspect--dump-json-in-buffer (name json) "Buffer NAME is opened and JSON in printed into it." (switch-to-buffer-other-window name) - (setf print-level nil - print-length nil) - (insert (pp json t)) - (goto-char 1) + (erase-buffer) + (let ((print-level nil) + (print-length nil)) + (insert (pp json t))) + (goto-char (point-min)) (emacs-lisp-mode) (message "success")) |