Mercurial > emacs
comparison lisp/net/ange-ftp.el @ 30518:ba9bd1bf0ef8
Ange-ftp handles the output of the w32-style clients
| author | Sam Steingold <sds@gnu.org> |
|---|---|
| date | Fri, 28 Jul 2000 16:27:41 +0000 |
| parents | b603c68fff56 |
| children | 1de3bb3a4c95 |
comparison
equal
deleted
inserted
replaced
| 30517:9362643130ae | 30518:ba9bd1bf0ef8 |
|---|---|
| 2485 (ange-ftp-real-insert-file-contents temp) | 2485 (ange-ftp-real-insert-file-contents temp) |
| 2486 (ange-ftp-error host user | 2486 (ange-ftp-error host user |
| 2487 (format | 2487 (format |
| 2488 "list data file %s not readable" | 2488 "list data file %s not readable" |
| 2489 temp)))) | 2489 temp)))) |
| 2490 ;; remove ^M inserted by the win32 ftp client | |
| 2491 (while (re-search-forward "\r$" nil t) | |
| 2492 (replace-match "")) | |
| 2493 (goto-char 1) | |
| 2490 (run-hooks 'ange-ftp-before-parse-ls-hook) | 2494 (run-hooks 'ange-ftp-before-parse-ls-hook) |
| 2491 (if parse | 2495 (if parse |
| 2492 (ange-ftp-set-files | 2496 (ange-ftp-set-files |
| 2493 ange-ftp-this-file | 2497 ange-ftp-this-file |
| 2494 (if (setq | 2498 (if (setq |
| 3426 (let ((name (buffer-file-name buf))) | 3430 (let ((name (buffer-file-name buf))) |
| 3427 (if (and (stringp name) (ange-ftp-ftp-name name)) | 3431 (if (and (stringp name) (ange-ftp-ftp-name name)) |
| 3428 (let ((file-mdtm (ange-ftp-file-modtime name)) | 3432 (let ((file-mdtm (ange-ftp-file-modtime name)) |
| 3429 (buf-mdtm (with-current-buffer buf (visited-file-modtime)))) | 3433 (buf-mdtm (with-current-buffer buf (visited-file-modtime)))) |
| 3430 (or (zerop (car file-mdtm)) | 3434 (or (zerop (car file-mdtm)) |
| 3431 (< (float-time file-mdtm) (float-time buf-mdtm)))) | 3435 (<= (float-time file-mdtm) (float-time buf-mdtm)))) |
| 3432 (ange-ftp-real-verify-visited-file-modtime buf)))) | 3436 (ange-ftp-real-verify-visited-file-modtime buf)))) |
| 3433 | 3437 |
| 3434 ;;;; ------------------------------------------------------------ | 3438 ;;;; ------------------------------------------------------------ |
| 3435 ;;;; File copying support... totally re-written 6/24/92. | 3439 ;;;; File copying support... totally re-written 6/24/92. |
| 3436 ;;;; ------------------------------------------------------------ | 3440 ;;;; ------------------------------------------------------------ |