Mercurial > hg > xemacs-beta
diff src/process.c @ 784:11e10b9141d0
[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 |
line wrap: on
line diff
--- a/src/process.c Tue Mar 19 02:38:51 2002 +0000 +++ b/src/process.c Tue Mar 19 03:12:51 2002 +0000 @@ -2,7 +2,7 @@ Copyright (C) 1985, 1986, 1987, 1988, 1992, 1993, 1994, 1995 Free Software Foundation, Inc. Copyright (C) 1995 Sun Microsystems, Inc. - Copyright (C) 1995, 1996, 2001 Ben Wing. + Copyright (C) 1995, 1996, 2001, 2002 Ben Wing. This file is part of XEmacs. @@ -492,6 +492,20 @@ "Bogus value for `default-process-coding-system'", Vdefault_process_coding_system); + if (!NILP (Vcoding_system_for_read) && + NILP (incode = (find_coding_system_for_text_file + (Vcoding_system_for_read, 1)))) + signal_error (Qinvalid_state, + "Bogus value for `coding-system-for-read'", + Vcoding_system_for_read); + + if (!NILP (Vcoding_system_for_write) && + NILP (outcode = (find_coding_system_for_text_file + (Vcoding_system_for_write, 0)))) + signal_error (Qinvalid_state, + "Bogus value for `coding-system-for-write'", + Vcoding_system_for_write); + usid = event_stream_create_stream_pair (in, out, &p->pipe_instream, &p->pipe_outstream,