/[tramp]/tramp/lisp/tramp.el
ViewVC logotype

Diff of /tramp/lisp/tramp.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 2.250 by albinus, Sun Oct 27 20:53:49 2002 UTC revision 2.251 by kai, Sat Nov 2 18:15:29 2002 UTC
# Line 1243  machine groks Perl.  If it is used, it's Line 1243  machine groks Perl.  If it is used, it's
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

Legend:
Removed from v.2.250  
changed lines
  Added in v.2.251

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26