From 6c2e107a54fe39bbd6ce31d9f29464da33bbf4af Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Wed, 4 Sep 2019 09:37:37 +0200 Subject: [PATCH] * lisp/net/tramp.el (tramp-process-sentinel): Use `process-buffer'. --- lisp/net/tramp.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el index fdad43ef6fa..ed0f1def181 100644 --- a/lisp/net/tramp.el +++ b/lisp/net/tramp.el @@ -4210,11 +4210,11 @@ the remote host use line-endings as defined in the variable (when vec (tramp-message vec 5 "Sentinel called: `%S' `%s'" proc event) (tramp-flush-connection-properties proc) - (tramp-flush-directory-properties vec "") - (with-current-buffer (tramp-get-buffer vec) - (goto-char (point-max)) - (when (and prompt (re-search-backward (regexp-quote prompt) nil t)) - (delete-region (point) (point-max)))))))) + (tramp-flush-directory-properties vec "")) + (with-current-buffer (process-buffer proc) + (goto-char (point-max)) + (when (and prompt (re-search-backward (regexp-quote prompt) nil t)) + (delete-region (point) (point-max))))))) (defun tramp-get-inode (vec) "Returns the virtual inode number. -- 2.39.2