procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix error in tramp-process-sentinel

Browse source 
* lisp/net/tramp.el (tramp-process-sentinel): Check, that process
buffer is alive.
This commit is contained in:
Michael Albinus 2019-12-20 13:32:24 +01:00
parent dad47bff3d
commit 85a60da92d
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/net/tramp.el
View file

@ -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.