1244 |
(make-variable-buffer-local 'tramp-buffer-file-attributes) |
(make-variable-buffer-local 'tramp-buffer-file-attributes) |
1245 |
|
|
1246 |
(defvar tramp-end-of-output |
(defvar tramp-end-of-output |
1247 |
(concat "///" (md5 (concat (prin1-to-string process-environment) |
(concat "///" |
1248 |
(current-time-string) |
(md5 (concat |
1249 |
(prin1-to-string |
(prin1-to-string process-environment) |
1250 |
(directory-files-and-attributes |
(current-time-string) |
1251 |
(or (getenv "HOME") |
(prin1-to-string |
1252 |
(tramp-temporary-file-directory))))))) |
(if (fboundp 'directory-files-and-attributes) |
1253 |
|
(funcall 'directory-files-and-attributes |
1254 |
|
(or (getenv "HOME") |
1255 |
|
(tramp-temporary-file-directory))) |
1256 |
|
(mapcar |
1257 |
|
(lambda (x) |
1258 |
|
(cons x (file-attributes x))) |
1259 |
|
(directory-files (or (getenv "HOME") |
1260 |
|
(tramp-temporary-file-directory)) |
1261 |
|
t))))))) |
1262 |
"String used to recognize end of output.") |
"String used to recognize end of output.") |
1263 |
|
|
1264 |
(defvar tramp-connection-function nil |
(defvar tramp-connection-function nil |