*** /media/disk/tramp/lisp/tramp.el.~1~	Mon Nov 12 19:38:36 2007
--- /media/disk/tramp/lisp/tramp.el	Thu Nov 15 17:14:35 2007
***************
*** 2807,2812 ****
--- 2807,2821 ----
    "Like `file-name-all-completions' for Tramp files."
    (unless (save-match-data (string-match "/" filename))
      (with-parsed-tramp-file-name (expand-file-name directory) nil
+       ;; Flush the directory cache after 10".  There could be changed
+       ;; directory contents.
+       (when (> (tramp-time-diff
+ 		(current-time)
+ 		(tramp-get-file-property
+ 		 v localname "last-completion" '(0 0 0)))
+ 	       10)
+ 	(tramp-flush-file-property v localname))
+ 
        (all-completions
         filename
         (mapcar
***************
*** 2838,2843 ****
--- 2847,2854 ----
  		      (point) (tramp-compat-line-end-position))
  		     result)))
  
+ 	   (tramp-set-file-property
+ 	    v localname "last-completion" (current-time))
  	   result)))))))
  
  ;; The following isn't needed for Emacs 20 but for 19.34?