branch: elpa/hyperdrive
commit 03650d7bad40106866752d52bc2547a01c40cb89
Author: Adam Porter <[email protected]>
Commit: Joseph Turner <[email protected]>
Tidy: Error messages
---
hyperdrive-lib.el | 2 +-
hyperdrive.el | 4 ++--
2 files changed, 3 insertions(+), 3 deletions(-)
diff --git a/hyperdrive-lib.el b/hyperdrive-lib.el
index b5043136fe..dd76ce7656 100644
--- a/hyperdrive-lib.el
+++ b/hyperdrive-lib.el
@@ -1541,7 +1541,7 @@ Used when HYPERDRIVE-GATEWAY-PROCESS-TYPE is the symbol
(file-missing
(info "(hyperdrive) hyper-gateway-ushin")
(user-error
- "hyper-gateway-ushin not found; Please see installation
instructions")))
+ "Program hyper-gateway-ushin not found; Please see installation
instructions")))
(sleep-for 0.5)
(unless (process-live-p h/gateway-process)
(if (h/status)
diff --git a/hyperdrive.el b/hyperdrive.el
index 64f2e82b59..fa8ec9a43d 100644
--- a/hyperdrive.el
+++ b/hyperdrive.el
@@ -1296,7 +1296,7 @@ FORCEP, force downloading and installing of the expected
gateway
version."
(interactive (list current-prefix-arg))
(when h/install-in-progress-p
- (user-error "hyper-gateway installation already in progress"))
+ (h/error "Installation of gateway already in progress"))
(declare-function h//hyper-gateway-ushin-path "hyperdrive-lib")
(unless forcep
(when (h//hyper-gateway-ushin-path)
@@ -1347,7 +1347,7 @@ version."
;; FIXME: Remove `h/gateway-process-type' option.
(setf h/install-in-progress-p nil)
(if (h//gateway-running-p)
- (when (yes-or-no-p "hyper-gateway-ushin installed. Restart
gateway?")
+ (when (yes-or-no-p "Installed hyper-gateway-ushin. Restart
gateway?")
(h/restart))
(h/message "hyper-gateway-ushin installed. Try
\\[hyperdrive-start]."))))
(try))))
