From: Reiner Steib <Reiner.Steib@gmx.de>
Date: Wed, 19 Mar 2008 21:21:38 +0000 (+0000)
Subject: (open-tls-stream): Use with-current-buffer.
X-Git-Tag: emacs-22.2~23
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=169dcbc59a6be163aa624861eb7e797e69dbc5cd;p=emacs.git

(open-tls-stream): Use with-current-buffer.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 624b527c7b9..1ffa5c2f08d 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -2,6 +2,7 @@
 
 	* net/tls.el: Don't require rx when compiling.
 	(tls-end-of-info): Rewrite without using rx.
+	(open-tls-stream): Use with-current-buffer.
 
 2008-03-18  Dan Nicolaescu  <dann@ics.uci.edu>
 
diff --git a/lisp/net/tls.el b/lisp/net/tls.el
index ee8477c3a39..2b0ee831888 100644
--- a/lisp/net/tls.el
+++ b/lisp/net/tls.el
@@ -153,8 +153,7 @@ Fourth arg PORT is an integer specifying a port to connect to."
 	process	cmd done)
     (if use-temp-buffer
 	(setq buffer (generate-new-buffer " TLS")))
-    (save-excursion
-      (set-buffer buffer)
+    (with-current-buffer buffer
       (message "Opening TLS connection to `%s'..." host)
     (while (and (not done) (setq cmd (pop cmds)))
       (message "Opening TLS connection with `%s'..." cmd)