branch: externals/dtache
commit 5f12c82fed049ce032b1dc39290ec5426e8ed61a
Author: Niklas Eklund <[email protected]>
Commit: Niklas Eklund <[email protected]>
Revert back dtache-eshell
It didn't work well on a remote host.
---
dtache-eshell.el | 11 +++++++----
1 file changed, 7 insertions(+), 4 deletions(-)
diff --git a/dtache-eshell.el b/dtache-eshell.el
index fe2542b924..addbf7a708 100644
--- a/dtache-eshell.el
+++ b/dtache-eshell.el
@@ -53,16 +53,19 @@
(dtache-completing-read sessions)))
(defun dtache-eshell-maybe-create-session ()
- "Create a session if `dtache-enabled' value is t."
+ "Create a session if `dtache-eshell-command' value is t."
(when dtache-enabled
(let* ((dtache-session-mode 'create)
(dtache-session-action dtache-eshell-session-action)
(command (mapconcat #'identity
`(,eshell-last-command-name
,@eshell-last-arguments)
- " ")))
- (setq dtache--current-session (dtache-create-session command))
- (setq dtache--buffer-session dtache--current-session))))
+ " "))
+ (session (dtache-create-session command)))
+ (setq eshell-last-arguments (dtache-dtach-command session))
+ (setq dtache--buffer-session session)
+ (setq dtache-enabled nil)
+ (setq eshell-last-command-name "dtach"))))
(defun dtache-eshell-get-dtach-process ()
"Return `eshell' process if `dtache' is running."
