From 310c4bb6b292fd1c8eb0073268c06e19dda497d0 Mon Sep 17 00:00:00 2001 From: "Artyom V. Poptsov" Date: Thu, 19 Nov 2015 17:56:53 +0300 Subject: message-func: Add a procedure to handle global requests * libguile-ssh/message-func.c (gssh_message_global_request_reply_success): New procedure. * modules/ssh/message.scm (message-global-request-reply-success): New procedure. (message-reply-success): Use it to handle global requests. --- modules/ssh/message.scm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'modules/ssh/message.scm') diff --git a/modules/ssh/message.scm b/modules/ssh/message.scm index 8805eab..b255714 100644 --- a/modules/ssh/message.scm +++ b/modules/ssh/message.scm @@ -60,6 +60,8 @@ message-channel-request-reply-success message-channel-request-open-reply-accept + message-global-request-reply-success + pty-req:term pty-req:width pty-req:height pty-req:pxwidth pty-req:pxheight @@ -129,7 +131,7 @@ to use will be selected depending on a type of the message MSG." (message-channel-request-reply-success msg)) ((request-global) - (error "Not implemented yet" (cadr msg-type)))))) + (message-global-request-reply-success msg (car args)))))) (load-extension "libguile-ssh" "init_message") -- cgit v1.2.3