branch: externals/dtache
commit 954b64265960cb5d1dc54f7a329a6cd34ffb3f3d
Author: Niklas Eklund <[email protected]>
Commit: Niklas Eklund <[email protected]>
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."
