# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 753725972 0
# Node ID 4854aff5c5b3144f0cc9b84072491d284b5dae27
# Parent  8abe8fb9621c8a9dc460d2937f165f7a8ea28802
(ange-ftp-parse-dired-listing): Skip extra blank line
after the "total" line.

diff -r 8abe8fb9621c -r 4854aff5c5b3 lisp/ange-ftp.el
--- a/lisp/ange-ftp.el	Fri Nov 19 15:57:50 1993 +0000
+++ b/lisp/ange-ftp.el	Fri Nov 19 16:19:32 1993 +0000
@@ -856,7 +856,7 @@
 ;;;; 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 @@
     (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.