From 4aa55338ff3af1cd4e87802e02156e636d212241 Mon Sep 17 00:00:00 2001 From: Ken Brown Date: Tue, 24 May 2016 11:05:09 -0400 Subject: [PATCH] Update allowable arguments for open-network-stream * src/coding.c (Ffind_operation_coding_system): Allow t as a target for open-network-stream. (Bug #23540) --- src/coding.c | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/coding.c b/src/coding.c index 17cb77e28d..7d199567fd 100644 --- a/src/coding.c +++ b/src/coding.c @@ -9843,7 +9843,8 @@ usage: (find-operation-coding-system OPERATION ARGUMENTS...) */) if (!(STRINGP (target) || (EQ (operation, Qinsert_file_contents) && CONSP (target) && STRINGP (XCAR (target)) && BUFFERP (XCDR (target))) - || (EQ (operation, Qopen_network_stream) && INTEGERP (target)))) + || (EQ (operation, Qopen_network_stream) + && (INTEGERP (target) || EQ (target, Qt))))) error ("Invalid argument %"pI"d of operation `%s'", XFASTINT (target_idx) + 1, SDATA (SYMBOL_NAME (operation))); if (CONSP (target)) -- 2.39.2