branch: externals/dtache
commit b1e4ead73e5897e544bc6e4991f9d9accf35ac1d
Author: Niklas Eklund <niklas.ekl...@posteo.net>
Commit: Niklas Eklund <niklas.ekl...@posteo.net>
Remove start-process advice
---
dtache.el | 24 ------------------------
1 file changed, 24 deletions(-)
diff --git a/dtache.el b/dtache.el
index 628c03580c..0b4d09ee69 100644
--- a/dtache.el
+++ b/dtache.el
@@ -558,9 +558,6 @@ Optionally make the path LOCAL to host."
(seq-filter #'dtache--session-active)
(seq-do #'dtache-start-session-monitor))
- ;; Advices
- ;; (advice-add #'start-process :around #'dtache-start-process-advice)
-
;; Add `dtache-shell-mode'
(add-hook 'shell-mode-hook #'dtache-shell-mode)))
@@ -663,27 +660,6 @@ If session is not valid trigger an automatic cleanup on
SESSION's host."
;;;;; Other
-(defun dtache-start-process-advice (start-process-fun name buffer &rest args)
- "Optionally make `start-process' use `dtache'."
- (if dtache-enabled
- (with-connection-local-variables
- (let* ((command
- (string-remove-prefix
- ;; If start-process called from e.g.
`start-file-process-shell-command'
- ;; we need to strip the shell command and switch at the start.
- (format (format "%s %s " shell-file-name shell-command-switch))
- (string-join args " ")))
- (dtache--current-session
- (if (and dtache--current-session
- (string=
- (dtache--session-command dtache--current-session)
- command))
- dtache--current-session
- (dtache-create-session command)))
- (dtach-command `(,dtache-dtach-program ,@(dtache-dtach-command
dtache--current-session))))
- (apply start-process-fun `(,name ,buffer ,@dtach-command))))
- (apply start-process-fun `(,name ,buffer ,@args))))
-
(defun dtache-start-session-monitor (session)
"Start to monitor SESSION activity."
(if (file-remote-p (dtache--session-working-directory session))
