Mercurial > hg > xemacs-beta
diff src/glyphs-x.c @ 259:11cf20601dec r20-5b28
Import from CVS: tag r20-5b28
author | cvs |
---|---|
date | Mon, 13 Aug 2007 10:23:02 +0200 |
parents | 677f6a0ee643 |
children | 8efd647ea9ca |
line wrap: on
line diff
--- a/src/glyphs-x.c Mon Aug 13 10:22:10 2007 +0200 +++ b/src/glyphs-x.c Mon Aug 13 10:23:02 2007 +0200 @@ -66,9 +66,8 @@ #else #include <setjmp.h> #endif - -#ifdef MULE -#include "mule-coding.h" +#ifdef FILE_CODING +#include "file-coding.h" #endif #define LISP_DEVICE_TO_X_SCREEN(dev) \ @@ -452,7 +451,7 @@ static Extbyte_dynarr *conversion_out_dynarr = NULL; Bytecount bstart, bend; struct gcpro gcpro1, gcpro2; -#ifdef MULE +#ifdef FILE_CODING Lisp_Object conv_out_stream; Lstream *costr; struct gcpro gcpro3; @@ -489,7 +488,7 @@ /* setup the out stream */ outstream = make_dynarr_output_stream((unsigned_char_dynarr *)conversion_out_dynarr); ostr = XLSTREAM (outstream); -#ifdef MULE +#ifdef FILE_CODING /* setup the conversion stream */ conv_out_stream = make_encoding_output_stream (ostr, Fget_coding_system(Qbinary)); costr = XLSTREAM (conv_out_stream); @@ -504,7 +503,7 @@ if (!size_in_bytes) break; /* It does seem the flushes are necessary... */ -#ifdef MULE +#ifdef FILE_CODING Lstream_write (costr, tempbuf, size_in_bytes); Lstream_flush (costr); #else @@ -524,7 +523,7 @@ if (fclose (tmpfil) != 0) fubar = 1; Lstream_close (istr); -#ifdef MULE +#ifdef FILE_CODING Lstream_close (costr); #endif Lstream_close (ostr); @@ -532,9 +531,10 @@ UNGCPRO; Lstream_delete (istr); Lstream_delete (ostr); -#ifdef MULE +#ifdef FILE_CODING Lstream_delete (costr); #endif + if (fubar) report_file_error ("Writing temp file", list1 (build_string (filename_out)));