# HG changeset patch
# User ben
# Date 1021381440 0
# Node ID 1e4e42de23d5619b12141263531a6f83d90d4d6b
# Parent  182d9d1c71a535c0410acf87f382c6049aa416c0
[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.

diff -r 182d9d1c71a5 -r 1e4e42de23d5 src/ChangeLog
--- 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:
diff -r 182d9d1c71a5 -r 1e4e42de23d5 src/callproc.c
--- 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);
diff -r 182d9d1c71a5 -r 1e4e42de23d5 src/extents.c
--- 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);
 	}
     }
 
diff -r 182d9d1c71a5 -r 1e4e42de23d5 src/lstream.c
--- 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';
     }
diff -r 182d9d1c71a5 -r 1e4e42de23d5 src/marker.c
--- 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);
 }