1256 |
(make-variable-buffer-local 'tramp-buffer-file-attributes) |
(make-variable-buffer-local 'tramp-buffer-file-attributes) |
1257 |
|
|
1258 |
(defvar tramp-md5-function |
(defvar tramp-md5-function |
1259 |
(cond ((fboundp 'md5) 'md5) |
(cond ((and (require 'md5) (fboundp 'md5)) 'md5) |
1260 |
((and (require 'md5) (fboundp 'md5-encode)) 'md5-encode) |
((fboundp 'md5-encode) |
1261 |
|
(lambda (x) (base64-encode-string (md5-encode x)))) |
1262 |
(t (error "Coulnd't find an `md5' function"))) |
(t (error "Coulnd't find an `md5' function"))) |
1263 |
"Function to call for running the MD5 algorithm.") |
"Function to call for running the MD5 algorithm.") |
1264 |
|
|