diff options
| author | Ken Brown | 2016-05-24 11:05:09 -0400 |
|---|---|---|
| committer | Ken Brown | 2016-05-24 11:05:09 -0400 |
| commit | 4aa55338ff3af1cd4e87802e02156e636d212241 (patch) | |
| tree | 7d9545c4cf349b175eb40c3eccfaec91a2481b8a /src/coding.c | |
| parent | 8af79702fcdbee4e3151a48c1d194c8b014c3815 (diff) | |
| download | emacs-4aa55338ff3af1cd4e87802e02156e636d212241.tar.gz emacs-4aa55338ff3af1cd4e87802e02156e636d212241.zip | |
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)
Diffstat (limited to 'src/coding.c')
| -rw-r--r-- | src/coding.c | 3 |
1 files changed, 2 insertions, 1 deletions
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...) */) | |||
| 9843 | if (!(STRINGP (target) | 9843 | if (!(STRINGP (target) |
| 9844 | || (EQ (operation, Qinsert_file_contents) && CONSP (target) | 9844 | || (EQ (operation, Qinsert_file_contents) && CONSP (target) |
| 9845 | && STRINGP (XCAR (target)) && BUFFERP (XCDR (target))) | 9845 | && STRINGP (XCAR (target)) && BUFFERP (XCDR (target))) |
| 9846 | || (EQ (operation, Qopen_network_stream) && INTEGERP (target)))) | 9846 | || (EQ (operation, Qopen_network_stream) |
| 9847 | && (INTEGERP (target) || EQ (target, Qt))))) | ||
| 9847 | error ("Invalid argument %"pI"d of operation `%s'", | 9848 | error ("Invalid argument %"pI"d of operation `%s'", |
| 9848 | XFASTINT (target_idx) + 1, SDATA (SYMBOL_NAME (operation))); | 9849 | XFASTINT (target_idx) + 1, SDATA (SYMBOL_NAME (operation))); |
| 9849 | if (CONSP (target)) | 9850 | if (CONSP (target)) |