From: Kenichi Handa <handa@m17n.org>
Date: Tue, 10 Feb 1998 03:55:04 +0000 (+0000)
Subject: (Fposition_bytes): Allow marker as arg POSITION.  Use
X-Git-Tag: emacs-20.3~2196
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fa8a5a154c70421f9f81c416c1c11f1588d0f732;p=emacs.git

(Fposition_bytes): Allow marker as arg POSITION.  Use
XINT for type consistency.
---

diff --git a/src/editfns.c b/src/editfns.c
index 15398e57a60..1630888f446 100644
--- a/src/editfns.c
+++ b/src/editfns.c
@@ -459,8 +459,8 @@ DEFUN ("position-bytes", Fposition_bytes, Sposition_bytes, 1, 1, 0,
   "Return the byte position for character position POSITION.")
   (position)
 {
-  CHECK_NUMBER (position, 1);
-  return make_number (CHAR_TO_BYTE (position));
+  CHECK_NUMBER_COERCE_MARKER (position, 1);
+  return make_number (CHAR_TO_BYTE (XINT (position)));
 }
 
 DEFUN ("following-char", Ffollowing_char, Sfollowing_char, 0, 0, 0,