/[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.244 by albinus, Mon Oct 14 20:39:22 2002 UTC revision 2.245 by kai, Tue Oct 15 09:09:59 2002 UTC
# Line 1244  the visited file modtime.") Line 1244  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-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

Legend:
Removed from v.2.244  
changed lines
  Added in v.2.245

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