From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 6 Apr 2003 20:33:59 +0000 (+0000)
Subject: (verify_bytepos): New function.
X-Git-Tag: ttn-vms-21-2-B4~10612
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=55a91ea3b58f0bf998f5138b7b61fada48cf25c0;p=emacs.git

(verify_bytepos): New function.
---

diff --git a/src/marker.c b/src/marker.c
index 0c1635fd2cb..b91609ca084 100644
--- 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;
+}
 
 /* bytepos_to_charpos returns the char position corresponding to BYTEPOS.  */