Mercurial > hg > xemacs-beta
changeset 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 | 6fadd0a2230b |
| children | 955603004a04 |
| files | lisp/ChangeLog lisp/dumped-lisp.el src/ChangeLog src/process.c |
| diffstat | 4 files changed, 33 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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.
--- 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")
--- 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:
--- 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,