(rlogin): Use format, not concat, to generate numeric buffer names.

[gnu-emacs] / lisp / ftp.el

diff --git a/lisp/ftp.el b/lisp/ftp.el
index 919a1d809b1178fe76c49dede03e255b685f60ec..01186dda27aa15f85d90be89078c424bea0715ae 100644 (file)
--- a/lisp/ftp.el
+++ b/lisp/ftp.el
@@ -1,12 +1,14 @@
-;; File input and output over Internet using FTP
+;;; ftp.el --- file input and output over Internet using FTP
+
 ;; Copyright (C) 1987 Free Software Foundation, Inc.
-;; Author mly@prep.ai.mit.edu.
+
+;; Author: Richard Mlynarik <mly@prep.ai.mit.edu>
 
 ;; This file is part of GNU Emacs.
 
 ;; GNU Emacs is free software; you can redistribute it and/or modify
 ;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 1, or (at your option)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -18,6 +20,8 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Code:
+
 ;; Prevent changes in major modes from altering these variables.
 (put 'ftp-temp-file-name 'permanent-local t)
 (put 'ftp-file 'permanent-local t)
@@ -252,6 +256,9 @@ USER and PASSWORD are defaulted from the values used when
            ((looking-at ignore)
             ;; Ignore status messages whose codes indicate no problem.
             (forward-line 1))
+           ((looking-at "^[^0-9]")
+            ;; Ignore any lines that don't have status codes.
+            (forward-line 1))
            ((not (search-forward "\n" nil t))
             ;; the way asynchronous process-output works with (point)
             ;;  is really really disgusting.
@@ -260,9 +267,6 @@ USER and PASSWORD are defaulted from the values used when
                 (accept-process-output process)
               (error nil))
             (goto-char p))
-           ((looking-at "^[a-z]")
-            ;; Ignore any lines that don't have error codes.
-            (forward-line 1))
            (t
             (setq p nil))))
     p))
@@ -384,3 +388,5 @@ USER and PASSWORD are defaulted from the values used when
         (= (process-exit-status process) 0)
         (set-buffer-modified-p nil))
     (message "Reverted")))
+
+;;; ftp.el ends here