Mercurial > hg > xemacs-beta

comparison src/process.c @ 784:11e10b9141d0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2002-03-19 03:12:46 by ben] process.c: Obey coding-system-for-{read,write} if set. dumped-lisp.el: Add debug.el.
author ben
date Tue, 19 Mar 2002 03:12:51 +0000
parents 943eaba38521
children e38acbeb1cae
comparison
equal deleted inserted replaced
783:6fadd0a2230b 784:11e10b9141d0
1 /* Asynchronous subprocess control for XEmacs. 1 /* Asynchronous subprocess control for XEmacs.
2 Copyright (C) 1985, 1986, 1987, 1988, 1992, 1993, 1994, 1995 2 Copyright (C) 1985, 1986, 1987, 1988, 1992, 1993, 1994, 1995
3 Free Software Foundation, Inc. 3 Free Software Foundation, Inc.
4 Copyright (C) 1995 Sun Microsystems, Inc. 4 Copyright (C) 1995 Sun Microsystems, Inc.
5 Copyright (C) 1995, 1996, 2001 Ben Wing. 5 Copyright (C) 1995, 1996, 2001, 2002 Ben Wing.
6 6
7 This file is part of XEmacs. 7 This file is part of XEmacs.
8 8
9 XEmacs is free software; you can redistribute it and/or modify it 9 XEmacs is free software; you can redistribute it and/or modify it
10 under the terms of the GNU General Public License as published by the 10 under the terms of the GNU General Public License as published by the
489 NILP (outcode = (find_coding_system_for_text_file 489 NILP (outcode = (find_coding_system_for_text_file
490 (Fcdr (Vdefault_process_coding_system), 0)))) 490 (Fcdr (Vdefault_process_coding_system), 0))))
491 signal_error (Qinvalid_state, 491 signal_error (Qinvalid_state,
492 "Bogus value for `default-process-coding-system'", 492 "Bogus value for `default-process-coding-system'",
493 Vdefault_process_coding_system); 493 Vdefault_process_coding_system);
494
495 if (!NILP (Vcoding_system_for_read) &&
496 NILP (incode = (find_coding_system_for_text_file
497 (Vcoding_system_for_read, 1))))
498 signal_error (Qinvalid_state,
499 "Bogus value for `coding-system-for-read'",
500 Vcoding_system_for_read);
501
502 if (!NILP (Vcoding_system_for_write) &&
503 NILP (outcode = (find_coding_system_for_text_file
504 (Vcoding_system_for_write, 0))))
505 signal_error (Qinvalid_state,
506 "Bogus value for `coding-system-for-write'",
507 Vcoding_system_for_write);
494 508
495 usid = event_stream_create_stream_pair (in, out, 509 usid = event_stream_create_stream_pair (in, out,
496 &p->pipe_instream, 510 &p->pipe_instream,
497 &p->pipe_outstream, 511 &p->pipe_outstream,
498 flags); 512 flags);