[nongnu] elpa/hyperdrive ea0b065e97 5/5: Change: (hyperdrive-install) Add button to view info manual

[ELPA Syncer]

branch: elpa/hyperdrive
commit ea0b065e97fb9b5f89bd894c5a86a9d9b790d643
Author: Joseph Turner <joseph@ushin.org>
Commit: Joseph Turner <joseph@ushin.org>

    Change: (hyperdrive-install) Add button to view info manual
    
    Don't close the *hyperdrive-install* buffer after restarting the
    gateway.  Add a button to give the user an opportunity to read the
    manual.
---
 hyperdrive.el | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

diff --git a/hyperdrive.el b/hyperdrive.el
index 8315680d17..32b5e43dc8 100644
--- a/hyperdrive.el
+++ b/hyperdrive.el
@@ -1502,11 +1502,6 @@ If FORCEP, don't prompt for confirmation before 
downloading."
                           "hyperdrive-restart"
                         "hyperdrive-start")))
          (insert-restart-button (buffer)
-           (letrec ((hook-fn (lambda ()
-                               (ignore-errors
-                                 (h//download-monitor-close buffer))
-                               (remove-hook 'h/gateway-ready-hook hook-fn))))
-             (add-hook 'h/gateway-ready-hook hook-fn))
            (with-current-buffer buffer
              (with-silent-modifications
                (when (timerp (map-elt h/download-monitor-etc :timer))
@@ -1518,6 +1513,9 @@ If FORCEP, don't prompt for confirmation before 
downloading."
                                       (lambda (_) (h/restart)))
                          (buttonize "Start the gateway"
                                     (lambda (_) (h/start))))
+                       "\n\n"
+                       (buttonize "View hyperdrive user info manual"
+                                  (lambda (_) (info "Hyperdrive")))
                        ;; Prevent button from going to end of the visual line.
                        " ")))))
       (try))))