branch: externals/detached
commit 0ca53e29ff0fe5522b18002298d93d0167707493
Author: Niklas Eklund <[email protected]>
Commit: Niklas Eklund <[email protected]>
Remove error check
---
detached.el | 10 ++++------
1 file changed, 4 insertions(+), 6 deletions(-)
diff --git a/detached.el b/detached.el
index defcb21cb0..e0596fab69 100644
--- a/detached.el
+++ b/detached.el
@@ -913,8 +913,6 @@ This function uses the `notifications' library."
(cl-defun detached-session-start-command (session &key type)
"Return command to start SESSION with specified TYPE."
- (unless (member type '(list string))
- (error "Type not specified for session start command"))
(detached-connection-local-variables
(let* ((socket (detached--session-file session 'socket t))
(detached-session-mode (detached--session-initial-mode session))
@@ -942,12 +940,11 @@ This function uses the `notifications' library."
(detached--set-session-state session 'started)
(pcase type
('string (string-join command " "))
- ('list command)))))
+ ('list command)
+ (_ nil)))))
(cl-defun detached-session-attach-command (session &key type)
"Return command to attach SESSION with specified TYPE."
- (unless (member type '(list string))
- (error "Type not specified for session start command"))
(detached-connection-local-variables
(let* ((socket (detached--session-file session 'socket t))
(log (detached--session-file session 'log t))
@@ -968,7 +965,8 @@ This function uses the `notifications' library."
"-r" "none")))))
(pcase type
('string (string-join command " "))
- ('list command)))))
+ ('list command)
+ (_ nil)))))
(defun detached-session-output (session)
"Return content of SESSION's output."
