[elpa] externals/dtache 954b642659 074/158: Demote attach commands to functions

[ELPA Syncer]

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

    Demote attach commands to functions
    
    The dtache-shell-command-attach and dtache-compile-attach is not
    supposed to be used directly by users.
---
 dtache-compile.el | 17 +++++++----------
 dtache.el         |  9 ---------
 2 files changed, 7 insertions(+), 19 deletions(-)

diff --git a/dtache-compile.el b/dtache-compile.el
index 2fef2a6b9a..a2f4bd6f58 100644
--- a/dtache-compile.el
+++ b/dtache-compile.el
@@ -57,16 +57,6 @@ Optionally EDIT-COMMAND."
          (dtache--dtach-mode 'create))
     (recompile edit-command)))
 
-;;;###autoload
-(defun dtache-compile-attach (session)
-  "Attach to SESSION with `compile'."
-  (interactive
-   (list (dtache-completing-read (dtache-get-sessions))))
-  (let* ((dtache-compile-command t)
-         (dtache--dtach-mode 'attach)
-         (dtache--current-session session))
-    (compilation-start nil)))
-
 ;;;;; Functions
 
 (defun dtache-compile-advice (compilation-start &rest args)
@@ -95,6 +85,13 @@ Optionally EDIT-COMMAND."
     (add-hook 'comint-preoutput-filter-functions 
#'dtache--dtache-env-message-filter 0 t)
     (add-hook 'comint-preoutput-filter-functions 
#'dtache--dtach-eof-message-filter 0 t)))
 
+(defun dtache-compile-attach (session)
+  "Attach to SESSION with `compile'."
+  (let* ((dtache-compile-command t)
+         (dtache--dtach-mode 'attach)
+         (dtache--current-session session))
+    (compilation-start nil)))
+
 ;;;###autoload
 (defun dtache-compile-setup ()
   "Setup `dtache-compile'."
diff --git a/dtache.el b/dtache.el
index b533022bd6..e7df59af15 100644
--- a/dtache.el
+++ b/dtache.el
@@ -222,15 +222,6 @@ If called with prefix-argument the output is suppressed."
   (let ((dtache-session-type 'shell-command))
     (dtache-start-session command current-prefix-arg)))
 
-;;;###autoload
-(defun dtache-shell-command-attach (session)
-  "Attach to `dtache' SESSION."
-  (interactive
-   (list (dtache-completing-read (dtache-get-sessions))))
-  (let* ((dtache--current-session session)
-         (dtache--dtach-mode 'attach))
-    (dtache-start-session nil)))
-
 ;;;###autoload
 (defun dtache-open-session (session)
   "Open a `dtache' SESSION."