[elpa] externals/dtache 34f39efa36 14/19: Add string when attaching

[ELPA Syncer]

branch: externals/dtache
commit 34f39efa364e751a144d4528e924cbac135af184
Author: Niklas Eklund <niklas.eklund@posteo.net>
Commit: Niklas Eklund <niklas.eklund@posteo.net>

    Add string when attaching
    
    Add [attached] when attaching to a session. This is to make it
    possible to navigate to previous prompts in shell/eshell
---
 dtache-eshell.el | 1 +
 dtache-shell.el  | 1 +
 2 files changed, 2 insertions(+)

diff --git a/dtache-eshell.el b/dtache-eshell.el
index 1f29d48c08..7e7e493a94 100644
--- a/dtache-eshell.el
+++ b/dtache-eshell.el
@@ -93,6 +93,7 @@ If prefix-argument directly DETACH from the session."
             (insert input)
             (setq end (point))
             (overlay-put (make-overlay begin end) 'invisible t)
+            (overlay-put (make-overlay end end) 'before-string "[attached]")
             (insert " "))
           (setq dtache--buffer-session session)
           (call-interactively #'eshell-send-input))
diff --git a/dtache-shell.el b/dtache-shell.el
index 03065e7fcd..54cbcd33f9 100644
--- a/dtache-shell.el
+++ b/dtache-shell.el
@@ -82,6 +82,7 @@ cluttering the comint-history with dtach commands."
                   ((symbol-function 'comint-add-to-input-history) (lambda (_) 
t)))
           (setq dtache--buffer-session session)
           (comint-kill-input)
+          (insert "[attached]")
           (comint-send-input))
       (dtache-open-session session))))