branch: elpa/hyperdrive
commit 8a2596260979d3c3039d8aea409a0a414664f26c
Author: Adam Porter <[email protected]>
Commit: Joseph Turner <[email protected]>
Change: Move "Gateway stopped" message out of command
---
hyperdrive-lib.el | 3 ++-
hyperdrive.el | 3 +--
2 files changed, 3 insertions(+), 3 deletions(-)
diff --git a/hyperdrive-lib.el b/hyperdrive-lib.el
index c51bdb0203..e68fee46f0 100644
--- a/hyperdrive-lib.el
+++ b/hyperdrive-lib.el
@@ -1454,7 +1454,8 @@ Default function; see variable
`h/gateway-start-function'."
;; TODO: Consider killing the process buffer and setting the variable nil in
;; the sentinel.
(kill-buffer (process-buffer h/gateway-process))
- (setf h/gateway-process nil))
+ (setf h/gateway-process nil)
+ (h/message "Gateway stopped."))
(defun h//gateway-live-p ()
"Return non-nil if the gateway process is running.
diff --git a/hyperdrive.el b/hyperdrive.el
index 785f5c56c7..6855053957 100644
--- a/hyperdrive.el
+++ b/hyperdrive.el
@@ -124,8 +124,7 @@ which see."
Calls function set in option `hyperdrive-gateway-stop-function',
which see."
(interactive)
- (funcall h/gateway-stop-function)
- (h/message "Gateway stopped."))
+ (funcall h/gateway-stop-function))
;;;###autoload
(defun hyperdrive-hyper-gateway-ushin-version ()
