Mercurial > emacs
comparison lisp/net/netrc.el @ 92694:d3767aa9ae49
Merge from gnus--devo--0
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-1097
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Mon, 10 Mar 2008 00:50:22 +0000 |
| parents | 107ccd98fa12 |
| children | 1e3a407766b9 |
comparison
equal
deleted
inserted
replaced
| 92693:2a2d2de297db | 92694:d3767aa9ae49 |
|---|---|
| 59 (defvar netrc-services-file "/etc/services" | 59 (defvar netrc-services-file "/etc/services" |
| 60 "The name of the services file.") | 60 "The name of the services file.") |
| 61 | 61 |
| 62 (defun netrc-parse (file) | 62 (defun netrc-parse (file) |
| 63 (interactive "fFile to Parse: ") | 63 (interactive "fFile to Parse: ") |
| 64 "Parse FILE and return an list of all entries in the file." | 64 "Parse FILE and return a list of all entries in the file." |
| 65 (when (file-exists-p file) | 65 (when (file-exists-p file) |
| 66 (with-temp-buffer | 66 (with-temp-buffer |
| 67 (let ((tokens '("machine" "default" "login" | 67 (let ((tokens '("machine" "default" "login" |
| 68 "password" "account" "macdef" "force" | 68 "password" "account" "macdef" "force" |
| 69 "port")) | 69 "port")) |