mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

(ange-ftp-parse-netrc-group): Don't move back to line

Browse Source 
beginning.  Skip the machine name whatever it may be.
(ange-ftp-parse-netrc): Skip initial whitespace.
This commit is contained in:
Richard M. Stallman 1994-07-31 18:22:04 +00:00
parent d43fe04903
commit 74c44611aa
1 changed files with 16 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
lisp/ange-ftp.el
View File

@ -851,7 +851,7 @@ SIZE, if supplied, should be a prime number."
;;;; Internal variables.
;;;; ------------------------------------------------------------
(defconst ange-ftp-version "$Revision: 1.54 $")
(defconst ange-ftp-version "$Revision: 1.55 $")
(defvar ange-ftp-data-buffer-name " *ftp data*"
"Buffer name to hold directory listing data received from ftp process.")
@ -1157,12 +1157,22 @@ Optional DEFAULT is password to start with."
;; record the information found.
(defun ange-ftp-parse-netrc-group ()
(beginning-of-line)
(let ((start (point))
(end (progn (re-search-forward "machine\\|default"
(point-max) 'end 2) (point)))
(end (save-excursion
(if (looking-at "machine\\>")
;; Skip `machine' and the machine name that follows.
(progn
(skip-chars-forward "^ \t\n")
(skip-chars-forward " \t\n")
(skip-chars-forward "^ \t\n"))
;; Skip `default'.
(skip-chars-forward "^ \t\n"))
;; Find start of the next `machine' or `default'
;; or the end of the buffer.
(if (re-search-forward "machine\\>\\|default\\>" nil t)
(match-beginning 0)
(point-max))))
machine login password account)
(goto-char start)
(setq machine (ange-ftp-parse-netrc-token "machine" end)
login (ange-ftp-parse-netrc-token "login" end)
password (ange-ftp-parse-netrc-token "password" end)
@ -1219,6 +1229,7 @@ Optional DEFAULT is password to start with."
(mapcar 'funcall find-file-hooks)
(setq buffer-file-name nil)
(goto-char (point-min))
(skip-chars-forward " \t\n")
(while (not (eobp))
(ange-ftp-parse-netrc-group))
(kill-buffer (current-buffer)))