(verify_bytepos): New function.

diff --git a/src/marker.c b/src/marker.c
index 0c1635fd2cb64c9ecd2cb1f4f1c08a6bcc6ab4e8..b91609ca084fbede024222b1ed333a99139a89e6 100644 (file)
--- a/src/marker.c
+++ b/src/marker.c
@@ -252,6 +252,24 @@ buf_charpos_to_bytepos (b, charpos)
 }
 
 #undef CONSIDER
+
+/* Used for debugging: recompute the bytepos corresponding to CHARPOS
+   in the simplest, most reliable way.  */
+
+int
+verify_bytepos (charpos)
+{
+  int below = 1;
+  int below_byte = 1;
+
+  while (below != charpos)
+    {
+      below++;
+      BUF_INC_POS (current_buffer, below_byte);
+    }
+
+  return below_byte;
+}
 \f
 /* bytepos_to_charpos returns the char position corresponding to BYTEPOS.  */