mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-12 09:28:24 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Reiner Steib 2008-03-19 21:21:38 +00:00
parent 9b655dbfd7
commit 169dcbc59a
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lisp/ChangeLog
View File

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

3
lisp/net/tls.el
View File

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