[Emacs-diffs] /srv/bzr/emacs/trunk r107402: * net/ange-ftp.el (ange-ftp-parse-netrc): Suppress comment lines. (Bug#10874)

[Michael Albinus]

------------------------------------------------------------
revno: 107402
committer: Michael Albinus <address@hidden>
branch nick: trunk
timestamp: Fri 2012-02-24 09:11:00 +0100
message:
  * net/ange-ftp.el (ange-ftp-parse-netrc): Suppress comment lines. (Bug#10874)
modified:
  lisp/ChangeLog
  lisp/net/ange-ftp.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-02-23 19:49:47 +0000
+++ b/lisp/ChangeLog    2012-02-24 08:11:00 +0000
@@ -1,3 +1,8 @@
+2012-02-24  Michael Albinus  <address@hidden>
+
+       * net/ange-ftp.el (ange-ftp-parse-netrc): Suppress comment lines.
+       (Bug#10874)
+
 2012-02-23  Alan Mackenzie  <address@hidden>
 
        * emacs-lisp/easy-mmode.el (define-minor-mode): Add extra

=== modified file 'lisp/net/ange-ftp.el'
--- a/lisp/net/ange-ftp.el      2012-01-28 11:26:29 +0000
+++ b/lisp/net/ange-ftp.el      2012-02-24 08:11:00 +0000
@@ -1390,6 +1390,9 @@
                (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))