 
 (defun go-guru--compilation-markup ()
   "Present guru output in the current buffer using `compilation-mode'."
+  (goto-char (point-max))
   (insert "\n")
   (compilation-mode)
   (setq compilation-error-screen-columns nil)

         (env-vars (go-root-and-paths))
         (goroot-env (concat "GOROOT=" (car env-vars)))
         (gopath-env (concat "GOPATH=" (mapconcat #'identity (cdr env-vars) ":")))
         (output-buffer (get-buffer-create "*go-guru*"))
         (buf (current-buffer)))
    (with-current-buffer output-buffer
      (setq buffer-read-only nil)

if not already set.  Mark up the output using `compilation-mode`,
replacing each file name with a small hyperlink, and display the
result."
  (let ((output (go-guru--exec mode need-scope))
	(display (get-buffer-create "*go-guru*")))
    (with-current-buffer display
      (setq buffer-read-only nil)
      (erase-buffer)
      (insert-buffer-substring output)
      (go-guru--compilation-markup))))

(defun go-guru--exec (mode &optional need-scope flags allow-unnamed)
  "Execute the Go guru in the specified MODE, passing it the
