[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 06bbd6d 1/3: Do not handle :stop in tramp-*-handle-
From: |
Michael Albinus |
Subject: |
[Emacs-diffs] master 06bbd6d 1/3: Do not handle :stop in tramp-*-handle-make-process |
Date: |
Fri, 19 Apr 2019 10:29:54 -0400 (EDT) |
branch: master
commit 06bbd6dfd131315ead26439ce13f96a3c3f5645e
Author: Michael Albinus <address@hidden>
Commit: Michael Albinus <address@hidden>
Do not handle :stop in tramp-*-handle-make-process
* lisp/net/tramp-adb.el (tramp-adb-handle-make-process):
* lisp/net/tramp-sh.el (tramp-sh-handle-make-process): Do not
handle :stop anymore.
---
lisp/net/tramp-adb.el | 4 ----
lisp/net/tramp-sh.el | 4 ----
2 files changed, 8 deletions(-)
diff --git a/lisp/net/tramp-adb.el b/lisp/net/tramp-adb.el
index f3aa55f..71d7f61 100644
--- a/lisp/net/tramp-adb.el
+++ b/lisp/net/tramp-adb.el
@@ -934,7 +934,6 @@ PRESERVE-UID-GID and PRESERVE-EXTENDED-ATTRIBUTES are
completely ignored."
(command (plist-get args :command))
(coding (plist-get args :coding))
(noquery (plist-get args :noquery))
- (stop (plist-get args :stop))
(connection-type (plist-get args :connection-type))
(filter (plist-get args :filter))
(sentinel (plist-get args :sentinel))
@@ -1010,9 +1009,6 @@ PRESERVE-UID-GID and PRESERVE-EXTENDED-ATTRIBUTES are
completely ignored."
;; Send the command.
(let* ((p (tramp-get-connection-process v)))
(tramp-adb-send-command v command nil t) ; nooutput
- ;; Stop process if indicated.
- (when stop
- (stop-process p))
;; Set sentinel and filter.
(when sentinel
(set-process-sentinel p sentinel))
diff --git a/lisp/net/tramp-sh.el b/lisp/net/tramp-sh.el
index d9751a9..dc64726 100644
--- a/lisp/net/tramp-sh.el
+++ b/lisp/net/tramp-sh.el
@@ -2781,7 +2781,6 @@ the result will be a local, non-Tramp, file name."
(command (plist-get args :command))
(coding (plist-get args :coding))
(noquery (plist-get args :noquery))
- (stop (plist-get args :stop))
(connection-type (plist-get args :connection-type))
(filter (plist-get args :filter))
(sentinel (plist-get args :sentinel))
@@ -2933,9 +2932,6 @@ the result will be a local, non-Tramp, file name."
v 'file-error
"pty association is not supported for `%s'"
name))))
- ;; Stop process if indicated.
- (when stop
- (stop-process p))
;; Set sentinel and filter.
(when sentinel
(set-process-sentinel p sentinel))