branch: externals/detached
commit fec1a4c7bda38754b3f148353259675c099c13dd
Author: Niklas Eklund <niklas.ekl...@posteo.net>
Commit: Niklas Eklund <niklas.ekl...@posteo.net>
Update function signatures
---
detached-eshell.el | 8 +++-----
detached-shell.el | 6 +++---
detached-vterm.el | 8 +++-----
3 files changed, 9 insertions(+), 13 deletions(-)
diff --git a/detached-eshell.el b/detached-eshell.el
index 874499ccbb..d03c4fc532 100644
--- a/detached-eshell.el
+++ b/detached-eshell.el
@@ -59,13 +59,11 @@
;;;; Commands
-(defun detached-eshell-send-input (&optional detach)
- "Create a session and attach to it.
-
-If prefix-argument directly DETACH from the session."
+(defun detached-eshell-send-input (&optional detached)
+ "Start a `detached-session' and attach to it, unless DETACHED."
(interactive "P")
(let* ((detached-session-origin 'eshell)
- (detached-session-mode (if detach 'detached 'attached))
+ (detached-session-mode (if detached 'detached 'attached))
(detached-enabled t)
(detached-current-session nil))
(advice-add #'eshell-external-command :around
#'detached-eshell-external-command)
diff --git a/detached-shell.el b/detached-shell.el
index 4d2634201a..fed8d691e1 100644
--- a/detached-shell.el
+++ b/detached-shell.el
@@ -58,12 +58,12 @@ This function also makes sure that the HISTFILE is disabled
for local shells."
;;;; Commands
-(defun detached-shell-send-input (&optional detach)
- "Create a session and attach to it unless DETACH."
+(defun detached-shell-send-input (&optional detached)
+ "Start a `detached-session' and attach to it, unless DETACHED."
(interactive "P")
(let* ((detached-session-origin 'shell)
(detached-session-action detached-shell-session-action)
- (detached-session-mode (if detach 'detached 'attached))
+ (detached-session-mode (if detached 'detached 'attached))
(comint-input-sender #'detached-shell--create-input-sender))
(comint-send-input)))
diff --git a/detached-vterm.el b/detached-vterm.el
index 050e9337e1..45dfb79b7b 100644
--- a/detached-vterm.el
+++ b/detached-vterm.el
@@ -48,16 +48,14 @@
;;;; Commands
-(defun detached-vterm-send-input (&optional detach)
- "Create a `detached' session.
-
-Optionally DETACH from it."
+(defun detached-vterm-send-input (&optional detached)
+ "Start a `detached-session' and attach to it, unless DETACHED."
(interactive)
(let* ((input (buffer-substring-no-properties (vterm-beginning-of-line)
(vterm-end-of-line)))
(detached-session-origin 'vterm)
(detached-session-action detached-vterm-session-action)
(detached-session-mode
- (if detach 'detached 'attached))
+ (if detached 'detached 'attached))
(detached-current-session (detached-create-session input))
(command (detached-session-start-command
detached-current-session
:type 'string)))
