branch: elpa/sly
commit 573fef2fe4bff961a764b5e27a3e8bf92e5fdf7e
Author: João Távora <joaotav...@gmail.com>
Commit: João Távora <joaotav...@gmail.com>
Fix #409: make it less dangerous to inadvertently restart a connection
* sly.el (sly-restart-connection-at-point): confirm with user.
---
sly.el | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/sly.el b/sly.el
index 748b183..04f4716 100644
--- a/sly.el
+++ b/sly.el
@@ -6479,8 +6479,9 @@ was called originally."
(defun sly-restart-connection-at-point (connection)
(interactive (list (sly--connection-at-point)))
- (let ((sly-dispatching-connection connection))
- (sly-restart-inferior-lisp)))
+ (when (sly-y-or-n-p "Really restart '%s'" (sly-connection-name connection))
+ (let ((sly-dispatching-connection connection))
+ (sly-restart-inferior-lisp))))
(defun sly-connection-list-make-default ()
"Make the connection at point the default connection."
