Commit 9d453139 authored by Sam Steingold's avatar Sam Steingold
Browse files

Ange-ftp handles the output of the w32-style clients

parent 4a7f48bb
......@@ -975,6 +975,9 @@ sign, e.g. `/'. (This syntax comes from EFS.)
*** If the new user-option `ange-ftp-try-passive-mode' is set, passive
ftp mode will be used if the ftp client supports that.
*** Ange-ftp handles the output of the w32-style clients which
output ^M at the end of lines.
** Shell script mode changes.
Shell script mode (sh-script) can now indent scripts for shells
2000-07-28 Sam Steingold <>
* net/ange-ftp.el (ange-ftp-verify-visited-file-modtime):
use `<=', not `<' to compare times!
(ange-ftp-ls): remve
2000-07-27 Gerd Moellmann <>
* play/cookie1.el: Add explanation of how to make cookie.el
......@@ -2487,6 +2487,10 @@ away in the internal cache."
"list data file %s not readable"
;; remove ^M inserted by the win32 ftp client
(while (re-search-forward "\r$" nil t)
(replace-match ""))
(goto-char 1)
(run-hooks 'ange-ftp-before-parse-ls-hook)
(if parse
......@@ -3428,7 +3432,7 @@ system TYPE.")
(let ((file-mdtm (ange-ftp-file-modtime name))
(buf-mdtm (with-current-buffer buf (visited-file-modtime))))
(or (zerop (car file-mdtm))
(< (float-time file-mdtm) (float-time buf-mdtm))))
(<= (float-time file-mdtm) (float-time buf-mdtm))))
(ange-ftp-real-verify-visited-file-modtime buf))))
;;;; ------------------------------------------------------------
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment