From: Michael Albinus <michael.albinus@gmx.de>
Date: Fri, 20 Dec 2019 12:32:24 +0000 (+0100)
Subject: Fix error in tramp-process-sentinel
X-Git-Tag: emacs-27.0.90~330
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=85a60da92d4db5c87ecfa152501d246425550fc3;p=emacs.git

Fix error in tramp-process-sentinel

* lisp/net/tramp.el (tramp-process-sentinel): Check, that process
buffer is alive.
---

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.