Mercurial > hg > xemacs-beta
changeset 840:1e4e42de23d5
[xemacs-hg @ 2002-05-14 13:03:54 by ben]
To: xemacs-patches@xemacs.org
callproc.c: Use Fget_buffer_create() with a string buffer, as documented.
extents.c: indentation.
lstream.c: fix a bug in selective-display
handling; not the crash we're seeing.
marker.c: delete superfluous error-checking -- it's already there in
bytebpos_to_membpos() and vice-versa.
| author | ben |
|---|---|
| date | Tue, 14 May 2002 13:04:00 +0000 |
| parents | 182d9d1c71a5 |
| children | 44478bd99873 |
| files | src/ChangeLog src/callproc.c src/extents.c src/lstream.c src/marker.c |
| diffstat | 5 files changed, 19 insertions(+), 14 deletions(-) [+] |
line wrap: on
line diff
--- a/src/ChangeLog Tue May 14 10:57:38 2002 +0000 +++ b/src/ChangeLog Tue May 14 13:04:00 2002 +0000 @@ -1,3 +1,19 @@ +2002-05-14 Ben Wing <ben@xemacs.org> + + * callproc.c (Fold_call_process_internal): + Use Fget_buffer_create() with a string buffer, as documented. + + * extents.c (signal_extent_changed): indentation. + + * lstream.c (lisp_buffer_reader): fix a bug in selective-display + handling; not the crash we're seeing. + + * marker.c: + * marker.c (byte_marker_position): + * marker.c (set_byte_marker_position): + delete superfluous error-checking -- it's already there in + bytebpos_to_membpos() and vice-versa. + 2002-05-13 Ben Wing <ben@xemacs.org> * config.h.in:
--- a/src/callproc.c Tue May 14 10:57:38 2002 +0000 +++ b/src/callproc.c Tue May 14 13:04:00 2002 +0000 @@ -238,7 +238,7 @@ || ZEROP (buffer))) { Lisp_Object spec_buffer = buffer; - buffer = Fget_buffer (buffer); + buffer = Fget_buffer_create (buffer); /* Mention the buffer name for a better error message. */ if (NILP (buffer)) CHECK_BUFFER (spec_buffer);
--- a/src/extents.c Tue May 14 10:57:38 2002 +0000 +++ b/src/extents.c Tue May 14 13:04:00 2002 +0000 @@ -1668,7 +1668,7 @@ hell better ensure that there aren't. */ LIST_LOOP_2 (child, XWEAK_LIST_LIST (children)) signal_extent_changed (XEXTENT (child), property, old_start, - old_end, descendants_too); + old_end, descendants_too); } }
--- a/src/lstream.c Tue May 14 10:57:38 2002 +0000 +++ b/src/lstream.c Tue May 14 13:04:00 2002 +0000 @@ -1667,7 +1667,6 @@ lisp_buffer_reader (Lstream *stream, Intbyte *data, Bytecount size) { struct lisp_buffer_stream *str = LISP_BUFFER_STREAM_DATA (stream); - Intbyte *orig_data = data; Bytebpos start; Bytebpos end; struct buffer *buf = XBUFFER (str->buffer); @@ -1694,7 +1693,7 @@ { /* What a kludge. What a kludge. What a kludge. */ Intbyte *p; - for (p = orig_data; p < data; p++) + for (p = data; p < data + src_used; p++) if (*p == '\r') *p = '\n'; }
--- a/src/marker.c Tue May 14 10:57:38 2002 +0000 +++ b/src/marker.c Tue May 14 13:04:00 2002 +0000 @@ -336,11 +336,6 @@ positions. */ pos = membpos_to_bytebpos (buf, m->membpos); -#ifdef ERROR_CHECK_TEXT - if (pos < BYTE_BUF_BEG (buf) || pos > BYTE_BUF_Z (buf)) - abort (); -#endif - return pos; } @@ -364,11 +359,6 @@ if (!buf) invalid_argument ("Marker does not point anywhere", Qunbound); -#ifdef ERROR_CHECK_TEXT - if (pos < BYTE_BUF_BEG (buf) || pos > BYTE_BUF_Z (buf)) - abort (); -#endif - m->membpos = bytebpos_to_membpos (buf, pos); }