summaryrefslogtreecommitdiff
path: root/src/editfns.c
diff options
context:
space:
mode:
authorKenichi Handa <handa@m17n.org>1998-02-10 03:55:04 +0000
committerKenichi Handa <handa@m17n.org>1998-02-10 03:55:04 +0000
commit3010fa5e2bef02fc3cf05d8b80b04c382c8c930e (patch)
treecd68e45355e5effca3ab564b5e2e79818c971be0 /src/editfns.c
parent25a8d82036ec1001f07c4ce20b91b37f2e52b492 (diff)
downloademacs-3010fa5e2bef02fc3cf05d8b80b04c382c8c930e.tar.gz
(Fposition_bytes): Allow marker as arg POSITION. Use
XINT for type consistency.
Diffstat (limited to 'src/editfns.c')
-rw-r--r--src/editfns.c4
1 files changed, 2 insertions, 2 deletions
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,