[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r100998: * net/tramp.el (tramp-handle
From: |
Michael Albinus |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r100998: * net/tramp.el (tramp-handle-start-file-process ): Set connection |
Date: |
Fri, 06 Aug 2010 16:34:23 +0200 |
User-agent: |
Bazaar (2.0.3) |
------------------------------------------------------------
revno: 100998
committer: Michael Albinus <address@hidden>
branch nick: trunk
timestamp: Fri 2010-08-06 16:34:23 +0200
message:
* 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.
modified:
lisp/ChangeLog
lisp/net/tramp.el
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog 2010-08-06 13:53:59 +0000
+++ b/lisp/ChangeLog 2010-08-06 14:34:23 +0000
@@ -1,4 +1,12 @@
-2010-08-06 Jürgen Hötzel <address@hidden>
+2010-08-06 Michael Albinus <address@hidden>
+
+ * 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 <address@hidden> (tiny change)
* comint.el (comint-mode): Make directory tracking functions
functional on remote files. (Bug#6764)
=== modified file 'lisp/net/tramp.el'
--- a/lisp/net/tramp.el 2010-08-05 08:15:22 +0000
+++ b/lisp/net/tramp.el 2010-08-06 14:34:23 +0000
@@ -4506,10 +4506,10 @@
(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 @@
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.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r100998: * net/tramp.el (tramp-handle-start-file-process ): Set connection,
Michael Albinus <=