Restore `with-help-window' return code

* lisp/help.el (help--window-setup): Return the correct thing.

diff --git a/lisp/help.el b/lisp/help.el
index 8727b60bfdc33ece144d47d575beaa291950a57d..ae65cc07dfab0725de903fbc4ff893c0639e6ed5 100644 (file)
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -1966,8 +1966,9 @@ The `temp-buffer-window-setup-hook' hook is called."
       (delete-all-overlays)
       (prog1
           (let ((standard-output (current-buffer)))
-            (funcall callback)
-            (run-hooks 'temp-buffer-window-setup-hook))
+            (prog1
+                (funcall callback)
+              (run-hooks 'temp-buffer-window-setup-hook)))
         (help-window-setup (temp-buffer-window-show (current-buffer)))
         (help-make-xrefs (current-buffer))))))