[Emacs-diffs] Changes to emacs/lisp/net/netrc.el,v

[Miles Bader]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Miles Bader <miles>     08/11/12 08:12:20

Index: net/netrc.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/net/netrc.el,v
retrieving revision 1.17
retrieving revision 1.18
diff -u -b -r1.17 -r1.18
--- net/netrc.el        7 Jun 2008 02:39:43 -0000       1.17
+++ net/netrc.el        12 Nov 2008 08:12:20 -0000      1.18
@@ -59,6 +59,8 @@
 (defun netrc-parse (file)
   (interactive "fFile to Parse: ")
   "Parse FILE and return a list of all entries in the file."
+  (if (listp file)
+      file
   (when (file-exists-p file)
     (with-temp-buffer
       (let ((tokens '("machine" "default" "login"
@@ -113,7 +115,7 @@
                pair nil)
          (widen)
          (forward-line 1))
-       (nreverse result)))))
+         (nreverse result))))))
 
 (defun netrc-machine (list machine &optional port defaultport)
   "Return the netrc values from LIST for MACHINE or for the default entry.