diff options
| author | Kenichi Handa | 1998-02-10 03:55:04 +0000 |
|---|---|---|
| committer | Kenichi Handa | 1998-02-10 03:55:04 +0000 |
| commit | fa8a5a154c70421f9f81c416c1c11f1588d0f732 (patch) | |
| tree | 4c235dbaed3fbe20e1423762eeb0b28658944454 /src | |
| parent | b5812513a487b49af64d1db729e6c93368cedb71 (diff) | |
| download | emacs-fa8a5a154c70421f9f81c416c1c11f1588d0f732.tar.gz emacs-fa8a5a154c70421f9f81c416c1c11f1588d0f732.zip | |
(Fposition_bytes): Allow marker as arg POSITION. Use
XINT for type consistency.
Diffstat (limited to 'src')
| -rw-r--r-- | src/editfns.c | 4 |
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, | |||
| 459 | "Return the byte position for character position POSITION.") | 459 | "Return the byte position for character position POSITION.") |
| 460 | (position) | 460 | (position) |
| 461 | { | 461 | { |
| 462 | CHECK_NUMBER (position, 1); | 462 | CHECK_NUMBER_COERCE_MARKER (position, 1); |
| 463 | return make_number (CHAR_TO_BYTE (position)); | 463 | return make_number (CHAR_TO_BYTE (XINT (position))); |
| 464 | } | 464 | } |
| 465 | 465 | ||
| 466 | DEFUN ("following-char", Ffollowing_char, Sfollowing_char, 0, 0, 0, | 466 | DEFUN ("following-char", Ffollowing_char, Sfollowing_char, 0, 0, 0, |