]> git.eshelyaron.com Git - emacs.git/commitdiff
Update allowable arguments for open-network-stream
authorKen Brown <kbrown@cornell.edu>
Tue, 24 May 2016 15:05:09 +0000 (11:05 -0400)
committerKen Brown <kbrown@cornell.edu>
Tue, 24 May 2016 15:05:09 +0000 (11:05 -0400)
* src/coding.c (Ffind_operation_coding_system): Allow t as a
target for open-network-stream.  (Bug #23540)

src/coding.c

index 17cb77e28dfd994f55ca05def0ddbf30c1dd83dd..7d199567fd01669a438a2472fd6605c11d090233 100644 (file)
@@ -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))