From: Michael Albinus <michael.albinus@gmx.de>
Date: Fri, 24 Feb 2012 08:11:00 +0000 (+0100)
Subject: * net/ange-ftp.el (ange-ftp-parse-netrc): Suppress comment lines. (Bug#10874)
X-Git-Tag: emacs-pretest-24.0.94~43
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=914260cdbd985a2021b4905eedc8151afd226e06;p=emacs.git

* net/ange-ftp.el (ange-ftp-parse-netrc): Suppress comment lines. (Bug#10874)
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 220ffd72d82..46d8ca44a0a 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2012-02-24  Michael Albinus  <michael.albinus@gmx.de>
+
+	* net/ange-ftp.el (ange-ftp-parse-netrc): Suppress comment lines.
+	(Bug#10874)
+
 2012-02-23  Alan Mackenzie  <acm@muc.de>
 
 	* emacs-lisp/easy-mmode.el (define-minor-mode): Add extra
diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el
index 4338cdff3cd..2a44148e4ce 100644
--- a/lisp/net/ange-ftp.el
+++ b/lisp/net/ange-ftp.el
@@ -1390,6 +1390,9 @@ only return the directory part of FILE."
 		(run-hooks 'find-file-hook)
 		(setq buffer-file-name nil)
 		(goto-char (point-min))
+		(while (search-forward-regexp "^[ \t]*#.*$" nil t)
+		  (replace-match ""))
+		(goto-char (point-min))
 		(skip-chars-forward " \t\r\n")
 		(while (not (eobp))
 		  (ange-ftp-parse-netrc-group))