emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/hyperdrive 9de6b7b0bf 051/163: Change: Rename functions, r


From: ELPA Syncer
Subject: [nongnu] elpa/hyperdrive 9de6b7b0bf 051/163: Change: Rename functions, remove TODO
Date: Fri, 31 May 2024 04:00:13 -0400 (EDT)

branch: elpa/hyperdrive
commit 9de6b7b0bfebeab2dceb806008d6c86a8dbea687
Author: Adam Porter <adam@alphapapa.net>
Commit: Joseph Turner <joseph@ushin.org>

    Change: Rename functions, remove TODO
---
 hyperdrive-lib.el  | 4 ++--
 hyperdrive-vars.el | 5 ++---
 2 files changed, 4 insertions(+), 5 deletions(-)

diff --git a/hyperdrive-lib.el b/hyperdrive-lib.el
index 3eb8943d74..509a5ac3c1 100644
--- a/hyperdrive-lib.el
+++ b/hyperdrive-lib.el
@@ -197,7 +197,7 @@ make the request."
        ;; We pass only the `plz-error' struct to the ELSE* function.
        (funcall else* (caddr err))))))
 
-(defun h//check-gateway-version ()
+(defun h/check-gateway-version ()
   "Warn if gateway is at not at the expected version.
 Unconditionally sets `h/gateway-version-checked-p' to t.  The
 caller should ensure that the gateway is running before calling
@@ -1444,7 +1444,7 @@ Default function; see variable 
`h/gateway-start-function'."
     ;; twice in close succession.
     (h/message "Starting gateway...")))
 
-(defun h//gateway-after-start-announce ()
+(defun h/gateway-after-start-announce ()
   "Announce that the gateway is ready."
   ;; TODO: Update hyperdrive-menu to indicate "gateway ready".
   (h/message "Gateway ready."))
diff --git a/hyperdrive-vars.el b/hyperdrive-vars.el
index 89dc33e22c..760b91de75 100644
--- a/hyperdrive-vars.el
+++ b/hyperdrive-vars.el
@@ -367,7 +367,7 @@ values are alists mapping version range starts to plists 
with
 (defvar h/gateway-version-checked-p nil
   "Non-nil if the gateway's version has been checked.
 If the version was unexpected,
-`hyperdrive--check-gateway-version' displayed a warning.")
+`hyperdrive-check-gateway-version' displayed a warning.")
 
 (defvar h/gateway-process nil
   "Hyper-gateway-ushin process.")
@@ -424,9 +424,8 @@ gateway process."
   "Predicate function which returns non-nil if the gateway process is live."
   :type 'function)
 
-;; TODO: Consider having a private hook as well as a public one.
 (defcustom h/gateway-ready-hook
-  '(h//check-gateway-version h//gateway-after-start-announce)
+  '(h/check-gateway-version h/gateway-after-start-announce)
   "Hook called when gateway is ready after starting it.
 This hook is called by `hyperdrive--gateway-wait-for-ready' after
 `hyperdrive-start'."



reply via email to

[Prev in Thread] Current Thread [Next in Thread]