Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-24 13:57:36 +00:00
Code Issues Projects Releases Packages Wiki Activity

* lisp/net/tramp.el (tramp-process-sentinel): Use `process-buffer'.

Browse source
This commit is contained in:
Michael Albinus 2019-09-04 09:37:37 +02:00
parent 22213f0052
commit 6c2e107a54
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lisp/net/tramp.el
View file

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