Commit 8ed4a859 authored by Magnus Henoch's avatar Magnus Henoch

net/tls.el (open-tls-stream): Show the actual command being executed,

instead of the format string.
parent 8d0e382e
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.
......
......@@ -224,18 +224,20 @@ Fourth arg PORT is an integer specifying a port to connect to."
(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 @@ Fourth arg PORT is an integer specifying a port to connect to."
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)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment