mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-10 09:43:26 -08:00
Code Issues Projects Releases Wiki Activity

* net/tramp.el (tramp-handle-start-file-process ): Set connection

Browse source 
property "vec".
(tramp-process-sentinel): Use it for flushing the cache.  We
cannot do it via the process buffer, the buffer could be deleted
already when running the sentinel.
This commit is contained in:
Michael Albinus 2010-08-06 16:34:23 +02:00
parent 942415f397
commit d00fa9b65e
2 changed files with 14 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lisp/ChangeLog
View file

@ -1,4 +1,12 @@
2010-08-06 Jürgen Hötzel <juergen@archlinux.org>
2010-08-06 Michael Albinus <michael.albinus@gmx.de>
* net/tramp.el (tramp-handle-start-file-process ): Set connection
property "vec".
(tramp-process-sentinel): Use it for flushing the cache. We
cannot do it via the process buffer, the buffer could be deleted
already when running the sentinel.
2010-08-06 Jürgen Hötzel <juergen@archlinux.org> (tiny change)
* comint.el (comint-mode): Make directory tracking functions
functional on remote files. (Bug#6764)

9
lisp/net/tramp.el
View file

@ -4506,10 +4506,10 @@ beginning of local filename are not substituted."
(defun tramp-process-sentinel (proc event)
"Flush file caches."
(unless (memq (process-status proc) '(run open))
(with-current-buffer (process-buffer proc)
(with-parsed-tramp-file-name default-directory nil
(tramp-message v 5 "Sentinel called: `%s' `%s'" proc event)
(tramp-flush-directory-property v "")))))
(let ((vec (tramp-get-connection-property proc "vector" nil)))
(when vec
(tramp-message vec 5 "Sentinel called: `%s' `%s'" proc event)
(tramp-flush-directory-property vec "")))))
;; We use BUFFER also as connection buffer during setup. Because of
;; this, its original contents must be saved, and restored once
@ -4556,6 +4556,7 @@ beginning of local filename are not substituted."
v 'file-error "pty association is not supported for `%s'" name)))
(let ((p (tramp-get-connection-process v)))
;; Set sentinel and query flag for this process.
(tramp-set-connection-property p "vector" v)
(set-process-sentinel p 'tramp-process-sentinel)
(tramp-set-process-query-on-exit-flag p t)
;; Return process.