Re: tramp no longer recognizes when remote files changed

[Michael Albinus]

Sascha Wilde <address@hidden> writes:

>> Maybe one could introduce an option whether such caches shall be used,
>> or not.
>
> Yes, I would highly appreciate that!

Could you, please, try the appended patch? You must set
`file-precious-flag' to t.

> Cheers
> sascha

Best regards, Michael.

*** /home/albinus/src/tramp/lisp/tramp-cache.el 2007-07-27 11:14:10.000000000 
+0200
--- /home/albinus/src/emacs/lisp/net/tramp-cache.el     2007-07-10 
20:45:30.000000000 +0200
***************
*** 108,124 ****
  
  (defun tramp-set-file-property (vec file property value)
    "Set the PROPERTY of FILE to VALUE, in the cache context of VEC.
! It is not set when `file-precious-flag' is non-nil.  Returns VALUE."
!   (unless file-precious-flag
!     ;; Unify localname.
!     (setq vec (copy-sequence vec))
!     (aset vec 3 (directory-file-name file))
!     (let ((hash (or (gethash vec tramp-cache-data)
!                   (puthash vec (make-hash-table :test 'equal)
!                            tramp-cache-data))))
!       (puthash property value hash)
!       (tramp-message vec 8 "%s %s %s" file property value)))
!   value)
  
  (defun tramp-flush-file-property (vec file)
    "Remove all properties of FILE in the cache context of VEC."
--- 108,123 ----
  
  (defun tramp-set-file-property (vec file property value)
    "Set the PROPERTY of FILE to VALUE, in the cache context of VEC.
! Returns VALUE."
!   ;; Unify localname.
!   (setq vec (copy-sequence vec))
!   (aset vec 3 (directory-file-name file))
!   (let ((hash (or (gethash vec tramp-cache-data)
!                 (puthash vec (make-hash-table :test 'equal)
!                          tramp-cache-data))))
!     (puthash property value hash)
!     (tramp-message vec 8 "%s %s %s" file property value)
!     value))
  
  (defun tramp-flush-file-property (vec file)
    "Remove all properties of FILE in the cache context of VEC."