From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 19 Nov 1993 16:19:32 +0000 (+0000)
Subject: (ange-ftp-parse-dired-listing): Skip extra blank line
X-Git-Tag: emacs-19.34~10784
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7ce370e11ffa9d1c7355b2bb162e0900f46b921e;p=emacs.git

(ange-ftp-parse-dired-listing): Skip extra blank line
after the "total" line.
---

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.