From 85a60da92d4db5c87ecfa152501d246425550fc3 Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Fri, 20 Dec 2019 13:32:24 +0100 Subject: [PATCH] Fix error in tramp-process-sentinel * lisp/net/tramp.el (tramp-process-sentinel): Check, that process buffer is alive. --- lisp/net/tramp.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el index 4b44d7a8031..36bfe5ef865 100644 --- a/lisp/net/tramp.el +++ b/lisp/net/tramp.el @@ -4301,14 +4301,16 @@ the remote host use line-endings as defined in the variable "Flush file caches and remove shell prompt." (unless (process-live-p proc) (let ((vec (process-get proc 'vector)) + (buf (process-buffer proc)) (prompt (tramp-get-connection-property proc "prompt" nil))) (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 (process-buffer proc) - (when (and prompt (tramp-search-regexp (regexp-quote prompt))) - (delete-region (point) (point-max))))))) + (when (buffer-live-p buf) + (with-current-buffer buf + (when (and prompt (tramp-search-regexp (regexp-quote prompt))) + (delete-region (point) (point-max)))))))) (defun tramp-get-inode (vec) "Return the virtual inode number. -- 2.39.2