-;; 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,
;; 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)
((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.
(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))
(= (process-exit-status process) 0)
(set-buffer-modified-p nil))
(message "Reverted")))
+
+;;; ftp.el ends here