         (current-buffer))))
 
 (defmacro fstar-tactics--with-goals-buffer (&rest body)
-  "Run BODY in F*'s goals buffer, then display that buffer."
+  "Run BODY in F*'s goals buffer"
   (declare (debug t)
            (indent 0))
   `(with-current-buffer (fstar-tactics--goals-buffer)
      (let ((inhibit-read-only t))
-       ,@body)
-     (set-marker help-window-point-marker (point))
-     (let ((window (temp-buffer-window-show (current-buffer))))
-       (help-window-setup window)
-       (with-selected-window window
-         (recenter 0)))))
+       ,@body)))
 
 (defun fstar-subp-json--parse-proof-state (json)
   "Convert JSON proof-state an fstar-mode proof state."

    (make-fstar-proof-state
     :label (if (equal .label "") nil .label)
     :location (and .location (fstar-subp-json--parse-location .location))
     :goals .goals
     :smt-goals .smt-goals)))


;;; ;; ;; Tactics

(cl-defstruct fstar-proof-state
  label location urgency goals smt-goals)

(defconst fstar--goals-buffer-name "*fstar: goals*")
(push fstar--goals-buffer-name fstar--all-temp-buffer-names)
