# HG changeset patch
# User ben
# Date 1016507571 0
# Node ID 11e10b9141d000f76d3d09e84eda62ad4e7c10af
# Parent  6fadd0a2230bb4ecde8a963e3998ffe79e23730f
[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.

diff -r 6fadd0a2230b -r 11e10b9141d0 lisp/ChangeLog
--- a/lisp/ChangeLog	Tue Mar 19 02:38:51 2002 +0000
+++ b/lisp/ChangeLog	Tue Mar 19 03:12:51 2002 +0000
@@ -1,3 +1,14 @@
+2002-03-18  Ben Wing  <ben@xemacs.org>
+
+	* dumped-lisp.el (preloaded-file-list): Add debug.el.
+
+2002-03-18  Ben Wing  <ben@xemacs.org>
+
+	* subr.el:
+	* subr.el (map-plist): New.
+
+	* debug.el: New.  New function show-memory-usage.
+
 2002-03-18  Adrian Aichner  <adrian@xemacs.org>
 
 	* cus-edit.el (customize-save-variable): Fix typo in prompt.
diff -r 6fadd0a2230b -r 11e10b9141d0 lisp/dumped-lisp.el
--- a/lisp/dumped-lisp.el	Tue Mar 19 02:38:51 2002 +0000
+++ b/lisp/dumped-lisp.el	Tue Mar 19 03:12:51 2002 +0000
@@ -86,6 +86,7 @@
 				; auto-gc-threshold
 	"itimer-autosave"
 	"printer"
+	"debug"
 
 	;;;;;;;;;;;;;;;;;; GUI support
 	(when-feature window-system "gui")
diff -r 6fadd0a2230b -r 11e10b9141d0 src/ChangeLog
--- a/src/ChangeLog	Tue Mar 19 02:38:51 2002 +0000
+++ b/src/ChangeLog	Tue Mar 19 03:12:51 2002 +0000
@@ -1,3 +1,9 @@
+2002-03-18  Ben Wing  <ben@xemacs.org>
+
+	* process.c:
+	* process.c (init_process_io_handles):
+	Obey coding-system-for-{read,write} if set.
+
 2002-03-18  Ben Wing  <ben@xemacs.org>
 
 	* fns.c:
diff -r 6fadd0a2230b -r 11e10b9141d0 src/process.c
--- 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,