]> git.eshelyaron.com Git - emacs.git/commitdiff
* src/editfns.c (Fbyte_to_position): Fix bytepos not at char boundary.
authorWolfgang Jenkner <wjenkner@inode.at>
Wed, 17 Jun 2015 11:41:57 +0000 (13:41 +0200)
committerWolfgang Jenkner <wjenkner@inode.at>
Wed, 17 Jun 2015 11:41:57 +0000 (13:41 +0200)
The behavior now matches the description in the manual.  (Bug#20783)

src/editfns.c

index bfa67e20e3e30c12296c7480a7366ee9aa1e283d..e39eed6e870838507b97f1ccbd7260a93fec0aba 100644 (file)
@@ -1025,10 +1025,20 @@ DEFUN ("byte-to-position", Fbyte_to_position, Sbyte_to_position, 1, 1, 0,
 If BYTEPOS is out of range, the value is nil.  */)
   (Lisp_Object bytepos)
 {
+  ptrdiff_t pos_byte;
+
   CHECK_NUMBER (bytepos);
-  if (XINT (bytepos) < BEG_BYTE || XINT (bytepos) > Z_BYTE)
+  pos_byte = XINT (bytepos);
+  if (pos_byte < BEG_BYTE || pos_byte > Z_BYTE)
     return Qnil;
-  return make_number (BYTE_TO_CHAR (XINT (bytepos)));
+  if (Z != Z_BYTE)
+    /* There are multibyte characters in the buffer.
+       The argument of BYTE_TO_CHAR must be a byte position at
+       a character boundary, so search for the start of the current
+       character.  */
+    while (!CHAR_HEAD_P (FETCH_BYTE (pos_byte)))
+      pos_byte--;
+  return make_number (BYTE_TO_CHAR (pos_byte));
 }
 \f
 DEFUN ("following-char", Ffollowing_char, Sfollowing_char, 0, 0, 0,