(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:
parent
12f165e92b
commit
3c2dbd9416
2 changed files with 11 additions and 1 deletions
|
@ -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.
|
||||
|
|
|
@ -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)))
|
||||
|
|
Loading…
Add table
Reference in a new issue