How about this for a temporary, simple solution? --- lisp/ChangeLog | 7 +++++++ lisp/tramp.el | 9 ++++++--- 2 files changed, 13 insertions(+), 3 deletions(-)
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 8f9b4b2..92f63c4 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,10 @@ +2009-08-18 Julian Scheid <[email protected]> + + * tramp.el (tramp-vc-registered-file-names): Set + tramp-process-inhibit-flush. + (tramp-handle-process-file) Only flush if + tramp-process-inhibit-flush isn't set. + 2009-08-17 Michael Albinus <[email protected]> * tramp.el (tramp-methods): New method "rsyncc". diff --git a/lisp/tramp.el b/lisp/tramp.el index f6606cc..9b08f1e 100644 --- a/lisp/tramp.el +++ b/lisp/tramp.el @@ -4214,14 +4214,16 @@ beginning of local filename are not substituted." (kill-buffer (tramp-get-connection-buffer v)) (setq ret 1))) - ;; Check return code. - (unless ret (setq ret (tramp-send-command-and-check v nil))) ;; Provide error file. (when tmpstderr (rename-file tmpstderr (cadr destination) t)) ;; Cleanup. We remove all file cache values for the connection, ;; because the remote process could have changed them. (when tmpinput (delete-file tmpinput)) - (tramp-flush-directory-property v "") + + (unless (and (boundp 'tramp-process-inhibit-flush) + tramp-process-inhibit-flush) + (tramp-flush-file-property v file)) + ;; Return exit status. (if (equal ret -1) (keyboard-quit) @@ -4898,6 +4900,7 @@ Returns a file name in `tramp-auto-save-directory' for autosaving this file." (with-parsed-tramp-file-name file nil (let (tramp-vc-registered-file-names (tramp-cache-inhibit-cache (current-time)) + (tramp-process-inhibit-flush t) (file-name-handler-alist `((,tramp-file-name-regexp . tramp-vc-file-name-handler)))) -- 1.6.4 _______________________________________________ Tramp-devel mailing list [email protected] http://lists.gnu.org/mailman/listinfo/tramp-devel
