Mercurial > hg > xemacs-beta

comparison src/lstream.c @ 380:8626e4521993 r21-2-5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-5
author cvs
date Mon, 13 Aug 2007 11:07:10 +0200
parents ca9a9ec9c1c1
children 74fd4e045ea6
comparison
equal deleted inserted replaced
379:76b7d63099ad 380:8626e4521993
144 print_lstream (Lisp_Object obj, Lisp_Object printcharfun, int escapeflag) 144 print_lstream (Lisp_Object obj, Lisp_Object printcharfun, int escapeflag)
145 { 145 {
146 Lstream *lstr = XLSTREAM (obj); 146 Lstream *lstr = XLSTREAM (obj);
147 char buf[200]; 147 char buf[200];
148 148
149 sprintf (buf, "#<INTERNAL EMACS BUG (%s lstream) 0x%p>", 149 sprintf (buf, "#<INTERNAL OBJECT (XEmacs bug?) (%s lstream) 0x%lx>",
150 lstr->imp->name, lstr); 150 lstr->imp->name, (long) lstr);
151 write_c_string (buf, printcharfun); 151 write_c_string (buf, printcharfun);
152 } 152 }
153 153
154 static void 154 static void
155 finalize_lstream (void *header, int for_disksave) 155 finalize_lstream (void *header, int for_disksave)
1615 lisp_buffer_marker (Lisp_Object stream, void (*markobj) (Lisp_Object)) 1615 lisp_buffer_marker (Lisp_Object stream, void (*markobj) (Lisp_Object))
1616 { 1616 {
1617 struct lisp_buffer_stream *str = 1617 struct lisp_buffer_stream *str =
1618 LISP_BUFFER_STREAM_DATA (XLSTREAM (stream)); 1618 LISP_BUFFER_STREAM_DATA (XLSTREAM (stream));
1619 1619
1620 (markobj) (str->start); 1620 markobj (str->start);
1621 (markobj) (str->end); 1621 markobj (str->end);
1622 return str->buffer; 1622 return str->buffer;
1623 } 1623 }
1624 1624
1625 Bufpos 1625 Bufpos
1626 lisp_buffer_stream_startpos (Lstream *stream) 1626 lisp_buffer_stream_startpos (Lstream *stream)