1243 |
the visited file modtime.") |
the visited file modtime.") |
1244 |
(make-variable-buffer-local 'tramp-buffer-file-attributes) |
(make-variable-buffer-local 'tramp-buffer-file-attributes) |
1245 |
|
|
1246 |
|
(defvar tramp-md5-function |
1247 |
|
(cond ((fboundp 'md5) 'md5) |
1248 |
|
((and (require 'md5) (fboundp 'md5-encode)) 'md5-encode) |
1249 |
|
(t (error "Coulnd't find an `md5' function"))) |
1250 |
|
"Function to call for running the MD5 algorithm.") |
1251 |
|
|
1252 |
(defvar tramp-end-of-output |
(defvar tramp-end-of-output |
1253 |
(concat "///" |
(concat "///" |
1254 |
(md5 (concat |
(funcall 'tramp-md5-function |
1255 |
(prin1-to-string process-environment) |
(concat |
1256 |
(current-time-string) |
(prin1-to-string process-environment) |
1257 |
(prin1-to-string |
(current-time-string) |
1258 |
(if (fboundp 'directory-files-and-attributes) |
(prin1-to-string |
1259 |
(funcall 'directory-files-and-attributes |
(if (fboundp 'directory-files-and-attributes) |
1260 |
(or (getenv "HOME") |
(funcall 'directory-files-and-attributes |
1261 |
(tramp-temporary-file-directory))) |
(or (getenv "HOME") |
1262 |
(mapcar |
(tramp-temporary-file-directory))) |
1263 |
(lambda (x) |
(mapcar |
1264 |
(cons x (file-attributes x))) |
(lambda (x) |
1265 |
(directory-files (or (getenv "HOME") |
(cons x (file-attributes x))) |
1266 |
(tramp-temporary-file-directory)) |
(directory-files (or (getenv "HOME") |
1267 |
t))))))) |
(tramp-temporary-file-directory)) |
1268 |
|
t))))))) |
1269 |
"String used to recognize end of output.") |
"String used to recognize end of output.") |
1270 |
|
|
1271 |
(defvar tramp-connection-function nil |
(defvar tramp-connection-function nil |