From: Ken Brown <kbrown@cornell.edu>
Date: Tue, 24 May 2016 15:05:09 +0000 (-0400)
Subject: Update allowable arguments for open-network-stream
X-Git-Tag: emacs-26.0.90~1904
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4aa55338ff3af1cd4e87802e02156e636d212241;p=emacs.git

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)
---

diff --git a/src/coding.c b/src/coding.c
index 17cb77e28df..7d199567fd0 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))