andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(open-tls-stream): In handshake-waiting loop,

Browse source 
don't wait more if there is output available to process.
This commit is contained in:
Thien-Thi Nguyen 2007-03-18 11:41:42 +00:00
parent c601a8ed61
commit 904bb06ca2
2 changed files with 7 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2007-03-18 Thien-Thi Nguyen <ttn@gnu.org>
* net/tls.el (open-tls-stream): In handshake-waiting loop,
don't wait more if there is output available to process.
2007-03-18 Nick Roberts <nickrob@snap.net.nz>
* progmodes/compile.el (compilation-find-file): Revert change

4
lisp/net/tls.el
View file

@ -146,8 +146,8 @@ Fourth arg PORT is an integer specifying a port to connect to."
(set-buffer buffer) ;; XXX "blue moon" nntp.el bug
(goto-char (point-min))
(not (setq done (re-search-forward tls-success nil t)))))
(accept-process-output process 1)
(sit-for 1))
(unless (accept-process-output process 1)
(sit-for 1)))
(message "Opening TLS connection with `%s'...%s" cmd
(if done "done" "failed"))
(if done