Mercurial > hg > xemacs-beta

comparison src/event-stream.c @ 251:677f6a0ee643 r20-5b24

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-5b24
author cvs
date Mon, 13 Aug 2007 10:19:59 +0200
parents 83b3d10dcba9
children 11cf20601dec
comparison
equal deleted inserted replaced
250:f385a461c9aa 251:677f6a0ee643
84 #include "process.h" 84 #include "process.h"
85 #include "window.h" 85 #include "window.h"
86 86
87 #include "sysdep.h" /* init_poll_for_quit() */ 87 #include "sysdep.h" /* init_poll_for_quit() */
88 #include "syssignal.h" /* SIGCHLD, etc. */ 88 #include "syssignal.h" /* SIGCHLD, etc. */
89 #include "sysfile.h"
89 #include "systime.h" /* to set Vlast_input_time */ 90 #include "systime.h" /* to set Vlast_input_time */
90 91
91 #include "events-mod.h" 92 #include "events-mod.h"
92 93
93 #ifdef MULE 94 #ifdef MULE
4808 if (!NILP (file)) 4809 if (!NILP (file))
4809 { 4810 {
4810 int fd; 4811 int fd;
4811 4812
4812 file = Fexpand_file_name (file, Qnil); 4813 file = Fexpand_file_name (file, Qnil);
4813 fd = creat ((char *) XSTRING_DATA (file), 0666); 4814 fd = open ((char*) XSTRING_DATA (file),
4815 O_WRONLY | O_TRUNC | O_CREAT | OPEN_BINARY,
4816 CREAT_MODE);
4814 if (fd < 0) 4817 if (fd < 0)
4815 error ("Unable to create dribble file"); 4818 error ("Unable to create dribble file");
4816 Vdribble_file = make_filedesc_output_stream (fd, 0, 0, LSTR_CLOSING); 4819 Vdribble_file = make_filedesc_output_stream (fd, 0, 0, LSTR_CLOSING);
4817 #ifdef MULE 4820 #ifdef MULE
4818 Vdribble_file = 4821 Vdribble_file =