[elpa] externals/inspector 863a6ade36 1/2: Move to beginning of buffer after view switching

[ELPA Syncer]

branch: externals/inspector
commit 863a6ade36388a7104d7d6786e20a1c216709d0f
Author: Mariano Montone <marianomontone@gmail.com>
Commit: Mariano Montone <marianomontone@gmail.com>

    Move to beginning of buffer after view switching
---
 inspector.el | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

diff --git a/inspector.el b/inspector.el
index 8c34fdab38..b1e2cfa281 100644
--- a/inspector.el
+++ b/inspector.el
@@ -430,7 +430,8 @@ is expected to be used.")
                                (setf buffer-read-only nil
                                      (buffer-string) "")
                                (inspector-inspect-object cons)
-                               (setq buffer-read-only t)))
+                               (setq buffer-read-only t)
+                              (goto-char 0)))
                    'follow-link t)
     (newline)
     (inspector--insert-horizontal-line)
@@ -456,7 +457,8 @@ is expected to be used.")
                                (setf buffer-read-only nil
                                      (buffer-string) "")
                                (inspector-inspect-object cons)
-                               (setq buffer-read-only t)))
+                               (setq buffer-read-only t)
+                              (goto-char 0)))
                    'follow-link t)
     (newline)
     (inspector--insert-horizontal-line)
@@ -493,7 +495,8 @@ is expected to be used.")
                                  (setf buffer-read-only nil
                                        (buffer-string) "")
                                  (inspector-inspect-object cons)
-                                 (setq buffer-read-only t)))
+                                 (setq buffer-read-only t)
+                                (goto-char 0)))
                      'follow-link t))
     (when (funcall inspector-plist-test-function cons)
       (insert-button "[as plist]"
@@ -502,7 +505,8 @@ is expected to be used.")
                                  (setf buffer-read-only nil
                                        (buffer-string) "")
                                  (inspector-inspect-object cons)
-                                 (setq buffer-read-only t)))
+                                 (setq buffer-read-only t)
+                                (goto-char 0)))
                      'follow-link t))
     (newline)
     (inspector--insert-horizontal-line)