(open-tls-stream): Make it work with the 2nd argument BUFFER that is a string

but does not exist as a buffer object, as mentioned in the doc-string.
This commit is contained in:
Katsumi Yamaoka 2008-07-18 00:59:10 +00:00
parent 12f165e92b
commit 3c2dbd9416
2 changed files with 11 additions and 1 deletions

View file

@ -1,3 +1,9 @@
2008-07-18 Katsumi Yamaoka <yamaoka@jpl.org>
* net/tls.el (open-tls-stream): Make it work with the 2nd argument
BUFFER that is a string but does not exist as a buffer object, as
mentioned in the doc-string.
2008-07-17 Chong Yidong <cyd@stupidchicken.com>
* simple.el (line-move-visual): Make it a defcustom.

View file

@ -216,7 +216,11 @@ Fourth arg PORT is an integer specifying a port to connect to."
(use-temp-buffer (null buffer))
process cmd done)
(if use-temp-buffer
(setq buffer (generate-new-buffer " TLS")))
(setq buffer (generate-new-buffer " TLS"))
;; BUFFER is a string but does not exist as a buffer object.
(unless (and (get-buffer buffer)
(buffer-name (get-buffer buffer)))
(generate-new-buffer buffer)))
(with-current-buffer buffer
(message "Opening TLS connection to `%s'..." host)
(while (and (not done) (setq cmd (pop cmds)))