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

This commit is contained in:
Michael Albinus 2012-02-24 09:11:00 +01:00
parent 50fc698ea8
commit 914260cdbd
2 changed files with 8 additions and 0 deletions

View file

@ -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

View file

@ -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))