Mercurial > emacs

comparison lisp/ange-ftp.el @ 5067:4854aff5c5b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(ange-ftp-parse-dired-listing): Skip extra blank line after the "total" line.
author Richard M. Stallman <rms@gnu.org>
date Fri, 19 Nov 1993 16:19:32 +0000
parents 78b10b34042e
children 85aadd2a80ba
comparison
equal deleted inserted replaced
5066:8abe8fb9621c 5067:4854aff5c5b3
854 854
855 ;;;; ------------------------------------------------------------ 855 ;;;; ------------------------------------------------------------
856 ;;;; Internal variables. 856 ;;;; Internal variables.
857 ;;;; ------------------------------------------------------------ 857 ;;;; ------------------------------------------------------------
858 858
859 (defconst ange-ftp-version "$Revision: 1.34 $") 859 (defconst ange-ftp-version "$Revision: 1.35 $")
860 860
861 (defvar ange-ftp-data-buffer-name " *ftp data*" 861 (defvar ange-ftp-data-buffer-name " *ftp data*"
862 "Buffer name to hold directory listing data received from ftp process.") 862 "Buffer name to hold directory listing data received from ftp process.")
863 863
864 (defvar ange-ftp-netrc-modtime nil 864 (defvar ange-ftp-netrc-modtime nil
2435 a listing, then return nil." 2435 a listing, then return nil."
2436 (ange-ftp-save-match-data 2436 (ange-ftp-save-match-data
2437 (cond 2437 (cond
2438 ((looking-at "^total [0-9]+$") 2438 ((looking-at "^total [0-9]+$")
2439 (forward-line 1) 2439 (forward-line 1)
2440 ;; Some systems put in a blank line here.
2441 (if (eolp) (forward-line 1))
2440 (ange-ftp-ls-parser)) 2442 (ange-ftp-ls-parser))
2441 ((looking-at "[^\n]+\\( not found\\|: Not a directory\\)\n\\'") 2443 ((looking-at "[^\n]+\\( not found\\|: Not a directory\\)\n\\'")
2442 ;; It's an ls error message. 2444 ;; It's an ls error message.
2443 nil) 2445 nil)
2444 ((eobp) ; i.e. (zerop (buffer-size)) 2446 ((eobp) ; i.e. (zerop (buffer-size))