diff options
| author | Richard M. Stallman <rms@gnu.org> | 1993-11-19 16:19:32 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1993-11-19 16:19:32 +0000 |
| commit | 7ce370e11ffa9d1c7355b2bb162e0900f46b921e (patch) | |
| tree | 1dba94ca260bf583c2edf82a63d03fdb83f53fac /lisp | |
| parent | f4e3d4eb483dc4502e2c60ace21266f43cbb6484 (diff) | |
| download | emacs-7ce370e11ffa9d1c7355b2bb162e0900f46b921e.tar.gz emacs-7ce370e11ffa9d1c7355b2bb162e0900f46b921e.tar.bz2 emacs-7ce370e11ffa9d1c7355b2bb162e0900f46b921e.zip | |
(ange-ftp-parse-dired-listing): Skip extra blank line
after the "total" line.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ange-ftp.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/ange-ftp.el b/lisp/ange-ftp.el index 9e51f6f33da..57313dcbffc 100644 --- a/lisp/ange-ftp.el +++ b/lisp/ange-ftp.el @@ -856,7 +856,7 @@ SIZE, if supplied, should be a prime number." ;;;; Internal variables. ;;;; ------------------------------------------------------------ -(defconst ange-ftp-version "$Revision: 1.34 $") +(defconst ange-ftp-version "$Revision: 1.35 $") (defvar ange-ftp-data-buffer-name " *ftp data*" "Buffer name to hold directory listing data received from ftp process.") @@ -2437,6 +2437,8 @@ a listing, then return nil." (cond ((looking-at "^total [0-9]+$") (forward-line 1) + ;; Some systems put in a blank line here. + (if (eolp) (forward-line 1)) (ange-ftp-ls-parser)) ((looking-at "[^\n]+\\( not found\\|: Not a directory\\)\n\\'") ;; It's an ls error message. |