Mercurial > emacs
changeset 98453:aa00c07b3f62
net/tls.el (open-tls-stream): Show the actual command being executed,
instead of the format string.
| author | Magnus Henoch <mange@freemail.hu> |
|---|---|
| date | Wed, 01 Oct 2008 23:48:57 +0000 |
| parents | 3984a4da51ca |
| children | 431a14612b87 |
| files | lisp/ChangeLog lisp/net/tls.el |
| diffstat | 2 files changed, 16 insertions(+), 9 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Wed Oct 01 17:15:16 2008 +0000 +++ b/lisp/ChangeLog Wed Oct 01 23:48:57 2008 +0000 @@ -1,3 +1,8 @@ +2008-10-01 Magnus Henoch <mange@freemail.hu> + + * net/tls.el (open-tls-stream): Show the actual command being + executed, instead of the format string. + 2008-10-01 Eli Zaretskii <eliz@gnu.org> * term/internal.el (dos-locale-alist): New alist.
--- a/lisp/net/tls.el Wed Oct 01 17:15:16 2008 +0000 +++ b/lisp/net/tls.el Wed Oct 01 23:48:57 2008 +0000 @@ -224,18 +224,20 @@ (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) (let ((process-connection-type tls-process-connection-type) + (formatted-cmd + (format-spec + cmd + (format-spec-make + ?h host + ?p (if (integerp port) + (int-to-string port) + port)))) response) + (message "Opening TLS connection with `%s'..." formatted-cmd) (setq process (start-process name buffer shell-file-name shell-command-switch - (format-spec - cmd - (format-spec-make - ?h host - ?p (if (integerp port) - (int-to-string port) - port))))) + formatted-cmd)) (while (and process (memq (process-status process) '(open run)) (progn @@ -244,7 +246,7 @@ tls-success nil t))))) (unless (accept-process-output process 1) (sit-for 1))) - (message "Opening TLS connection with `%s'...%s" cmd + (message "Opening TLS connection with `%s'...%s" formatted-cmd (if done "done" "failed")) (if (not done) (delete-process process)