[Emacs-diffs] /srv/bzr/emacs/trunk r100998: * net/tramp.el (tramp-handle-start-file-process ): Set connection

[Michael Albinus]

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