[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r107402: * net/ange-ftp.el (ange-ftp-
From: |
Michael Albinus |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r107402: * net/ange-ftp.el (ange-ftp-parse-netrc): Suppress comment lines. (Bug#10874) |
Date: |
Fri, 24 Feb 2012 09:11:00 +0100 |
User-agent: |
Bazaar (2.3.1) |
------------------------------------------------------------
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))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r107402: * net/ange-ftp.el (ange-ftp-parse-netrc): Suppress comment lines. (Bug#10874),
Michael Albinus <=