[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r112858: (open-tls-stream): Remove un
From: |
Ted Zlatanov |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r112858: (open-tls-stream): Remove unneeded buffer contents when opening the connection. |
Date: |
Wed, 05 Jun 2013 11:03:37 -0400 |
User-agent: |
Bazaar (2.6b2) |
------------------------------------------------------------
revno: 112858
committer: Ted Zlatanov <address@hidden>
branch nick: quickfixes
timestamp: Wed 2013-06-05 11:03:37 -0400
message:
(open-tls-stream): Remove unneeded buffer contents when opening the
connection.
modified:
lisp/ChangeLog
lisp/net/tls.el
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog 2013-06-05 14:57:45 +0000
+++ b/lisp/ChangeLog 2013-06-05 15:03:37 +0000
@@ -1,3 +1,10 @@
+2013-06-05 Teodor Zlatanov <address@hidden>
+
+ * net/tls.el (open-tls-stream): Remove unneeded buffer contents up
+ to point when opening the connection.
+ Suggested by João Távora <address@hidden> in
+ <http://lists.gnu.org/archive/html/emacs-devel/2013-05/msg00464.html>.
+
2013-06-05 Stefan Monnier <address@hidden>
* subr.el (load-history-regexp, load-history-filename-element)
=== modified file 'lisp/net/tls.el'
--- a/lisp/net/tls.el 2013-01-02 16:13:04 +0000
+++ b/lisp/net/tls.el 2013-06-05 15:03:37 +0000
@@ -286,7 +286,10 @@
(format "Host name in certificate doesn't \
match `%s'. Connect anyway? " host))))))
(setq done nil)
- (delete-process process)))
+ (delete-process process))
+ ;; Delete all the informational messages that could confuse
+ ;; future uses of `buffer'.
+ (delete-region (point-min) (point)))
(message "Opening TLS connection to `%s'...%s"
host (if done "done" "failed"))
(when use-temp-buffer
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r112858: (open-tls-stream): Remove unneeded buffer contents when opening the connection.,
Ted Zlatanov <=