Mercurial > emacs
changeset 96779:2a63efc82880
(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.
| author | Katsumi Yamaoka <yamaoka@jpl.org> |
|---|---|
| date | Fri, 18 Jul 2008 00:59:10 +0000 |
| parents | 5dafdebb219d |
| children | 326ca810843d |
| files | lisp/ChangeLog lisp/net/tls.el |
| diffstat | 2 files changed, 11 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Thu Jul 17 23:41:29 2008 +0000 +++ b/lisp/ChangeLog Fri Jul 18 00:59:10 2008 +0000 @@ -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.
--- a/lisp/net/tls.el Thu Jul 17 23:41:29 2008 +0000 +++ b/lisp/net/tls.el Fri Jul 18 00:59:10 2008 +0000 @@ -216,7 +216,11 @@ (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)))